Fórum Exportar para TXT. #237705

Estou usando o seguinte código para fazer exportação para um arquivo .txt.


assignfile(F2,´C:\TEMP\CLI.TXT´);
rewrite(F2);
...
while not qClientes.EOF do
begin
sCGC := qClientes.FieldByName(´num_cgc_cpf´).AsStrring;
while Length(sCGC) <> 18 do
sCGC := ´ ´ + sCGC;

sNome := qClientes.FieldByName(´nom_cliente´).AsString;
while Length(sNome) <> 40 do
sNome := sNome + ´ ´;

sReduzido := qClientes.FieldByName(´nom_reduzido´).AsString;
while Length(sReduzido) <> 15 do
sReduzido := sReduzido + ´ ´;

sEndereco := qClientes.FieldByName(´end_cliente´).AsString;
while Length(sEndereco) <> 40 do
sEndereco := sEndereco + ´ ´;

writeln(f2, sCGC + sNome + sReduzido + sEndereco);

qClientes.Next;

end;
qClientes.Close;
CloseFile (F2);
...

Mas se o volume de informação é grande, essa exportação fica muito lenta. Alguém tem alguma idéia?

Obrigado.