Fórum Relatório em arquivo #155164

Caro Amigo
Se voce estiver usando O quickreport basta colocar no quickreport os seguintes componentes txt e web que estão na palheta qreport. na hora de salvar aparecerá as opções de salvar com txt ou html.

Caso contrario,sevc não usa qreport
voce poderia criar um arquivo.txt da seguinte formo:
procedure criararquivo;
var
f:textfile
begin
assignfile(f,´arquivo.txt´);
rewrite(f);//abre o arquivo para edição
query1.open;
query1.first;//posiona no 1 registro retornado pela pesquisa
while not query1.eof do //varre todos os registros da query
begin
writeln(f,query1<nomedocampo>.value+ query1...);
query1.next;
end;

end;

Obs: Os dados virão agrupado, se deseja separá-los use uma função para preencher de espaço em branco, ou determine um delimitador.
Para Html coloque as tags entre aspas.