Fórum Converter dados de tabela firebird para Txt #295689

Bom dia,

Criei a seguinte rotina para converter os dados de uma tabela firebird para txt. Consigo fazer a conversão, mas tenho um pequeno problema:

- preciso fazer o arquivo texto , com um registro por linha


Alguém saberia me dizer como fazer isto?


Aqui está o código :

while not dm.ClientDataSet1.EOF do
begin
Write (F,dm.ClientDataSet1Razao.asstring+´,´);
Write (F,dm.ClientDataSet1Fax.asstring+´,´);
<-----------enter aqui ????
dm.ClientDataSet1.Next;
end;



Ou talvez alguém conheça algum componente para fazer exportação de dados que realmente funcione.(Tentei PgCSV e não funcionou.)


Um abraço.