Exportar con TQRCommaSeparatedFilter

[ecfisa]

Hola de nuevo.

Tenes que indicar el propietario (Owner) en la creación. Por lo que creo interpretar de tu mensaje, bién puede ser NULL.

void __fastcall ExportToCVS(TQuickRep *QR, const char *FileName)
{
  TQRCSVFilter *CVSF = new TQRCSVFilter(NULL);
  TQRCommaSeparatedFilter *CommaSF = new TQRCommaSeparatedFilter(FileName);
  TStringList *SL = new TStringList;

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

Saludos.