Enviando relatório p/txt

Delphi

15/05/2006

Prezados Colegas,

Tenho um sistema em Delphi 1 e tem um determinado relatório que faço uma exportação dele para um arquivo Txt da seguinte forma:

// Declare QRExtra na cláusula USES.
procedure TForm1.btnSalvar(Sender: TObject);
var
AExportFilter : TQRAsciiExportFilter;
begin
AExportFilter := TQRAsciiExportFilter.Create(´c:\Report.txt´);
try
FormReport.QuickRep1.ExportToFilter(AExportFilter);
finally
AExportFilter.Free;
end;

end;

Funciona, só que o arquivo Txt fica todo desarrumado, e quando o relatório é muito grande, fica muito confusso e complicado p/ficar acertando na mão. Pergunto, tem como ao enviar o relatório para o Txt, enviar ele ajustado?

Desde já agradeço.


Fabiano_aprendiz

Fabiano_aprendiz

Curtidas 0
POSTAR