Exportar con TQRCommaSeparatedFilter

[ecfisa]

Hola Angel.Matilla.

El problema que tengo es que el fichero que saca no usa el punto y coma como separador de campos

Agrega un TQRCSVFilter y proba de este modo:

void __fastcall TForm1::ExportToCVS(const char *FileName)
{
 TQRCommaSeparatedFilter *CommaSF = new TQRCommaSeparatedFilter(FileName);
 __try {
   QRCSVFilter1->Separator = ';';
   QuickRep1->ExportToFilter(CommaSF);
 }
 __finally {
   delete CommaSF;
 }
}

Llamada:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ExportToCVS("C:\\REPORTE.TXT");
}

Saludos.