Fórum Tabela para Arquivo texto #141541

Eu uso duas maneiras uma com relatorio que acho amelhor enbora de mais trabalho por ter que fazer um relatorio a outra eu uso o Clipboard do Win .
Ex:
///////////////////////////
Nesse exemplo o codigo ira copiar toda a tabela para area de transferencia do win ( cuidado com as tabelas grandes demais )

procedure TCadatroGerais.SpeedButton14Click(Sender: TObject);

const
SeparadorCampoValor = ´: ´;
SeparadorCampo = #1310; { Quebra de linha }
SeparadorRegistro = ´===========´ + 1310;
var
S: string;
I: integer;
begin
S := ´´;
Table1Viaturas.First;
while not Table1Viaturas.EOF do begin
for I := 0 to Table1Viaturas.FieldCount -1 do
S := S + Table1Viaturas.Fields[I].FieldName + SeparadorCampoValor +
Table1Viaturas.Fields[I].AsString + SeparadorCampo;
S := S + SeparadorRegistro;
Table1Viaturas.Next;
end;
Clipboard.AsText := S;
end;
Inclua na seção uses: Clipbrd
Vá em outro aplicativo (ex: MS-Word) e mande colar (Ctrl+V).
/////////////////////////

Nesse o documento ja estara pronto sem presisar colar , so de um relatorio com QuickReport

Na clausula uses, acrescente a unit QRExport

Exportando para HTML:
QuickReport.ExportToFilter(TQRHTMLDocumentFilter.Create(´c:\teste.html´));

Exportando para DOC ou TXT:
QuickReport.ExportToFilter(TQRAsciiExportFilter.Create(´c:\teste.doc´));

Exportando para XLS:
QuickReport.ExportToFilter(TQRXLSFilter.Create(´c:\teste.xls´));

espero que seja isso se nào for , me manda ai o que vc quer fazer