Minha exportação para não está funcionando

[marvazoler 0]

Olá galera beleza?

 

Tenho um sistema de exportação da db para text

 

bom tenho um dbgrid para mostrar os campos que vão ser exportação

para para txt no grid está beleza, no arquivo txt fica errado, é um cado tipo inteiro

ele fica certo no grid mas quando exporto fica erra.

o que pode ser?

[Marcelo R Moura 0]

posta o codigo pra gente dar uma olhada.

[marvazoler 0]

Seguinte

Fiz está código para exportar para txt e tem o campo referencia

 

que está formatado assim #,###,##0.00, quando eu executo

 

no arquivo que gera txt fica errado, o que pode ser, como colocar um format neste código?

 

 

procedure TForm1.BitBtn1Click(Sender: TObject);

 

Var

 

F: TextFile;

 

begin

 

AssignFile(F,'C:\Clientes.txt');

 

Rewrite(F);

 

Query1.First;

 

While not Query1.Eof do

 

begin

 

Writeln(F,'04'+'0001'+Query1.FieldByname('func_socio').Value + ('000'+ Query1.FieldByname('funcc').Value) +'0048'+'001'+ ('0'+ Query1.FieldByname('evento').Value) + (FloatToStr(Query1.FieldByname('referencia').Value)) + (FloatToStr(Query1.FieldByName('vencs').Value))+ (FloatToStr(Query1.FieldByName('descs').Value)));

 

Query1.Next;

 

end;

 

CloseFile(F);

 

ShowMessage('Fim do Processo');