Exportar con TQRCommaSeparatedFilter

[ecfisa]

Hola Angel.Matilla.

pero esto se puede resolver con StringReplace.

Pienso del mismo modo, no se me ocurre otra manera mas simple de salvar ese detalle:

void __fastcall TForm1::ExportToCVS(const char *FileName)
{
  TQRCommaSeparatedFilter *CommaSF = new TQRCommaSeparatedFilter(FileName);
  TStringList *SL = new TStringList;

  __try {
    QRCSVFilter1->Separator = ';';
    QuickRep1->ExportToFilter(CommaSF);
    SL->LoadFromFile(FileName);
    SL->Text = StringReplace(SL->Text, '"', "", TReplaceFlags() << rfReplaceAll);
    SL->SaveToFile(FileName);
  }
  __finally {
    delete SL;
    delete CommaSF;
  }
}

Saludos.