Gerando arquivo txt com informações no formato Float

Delphi

01/04/2015

Olá, estou com um pequeno problema para gerar um relatório TXT, verifique o códigp:
while not ClientDataSet_estoque.Eof do
  begin
   Write( arq,AjustaStr(ClientDataSet_estoque.FieldByName('COD_PRODUTO').AsString,7)+
   FormatFloat('00.00',ClientDataSet_estoque.FieldByName('PRECO').AsFloat)+
   AjustaStr(ClientDataSet_estoque.FieldByName('QUANTI_ESTOQUE').AsString,7));
end;

Desta forma esta gerando normalmente, porém o campo ('QUANTI_ESTOQUE') esta sendo gerado junto ao campo ('PRECO'). Ai então tentei colocar assim, para definir o espaço com tamanho 7 entre os campos :
FormatFloat('00.00',ClientDataSet_estoque.FieldByName('PRECO').AsFloat,7)+

Então retorna o erro:
E2250 There is no overloaded version of 'FormatFloat' that can be called with these arguments
Alguém poderia me dar uma orientação ?
Jhon

Jhon

Curtidas 0

Melhor post

Gabriel Baltazar

Gabriel Baltazar

02/04/2015

O que você quer é separar os 2 campos com uma String vazia?

FormatFloat('00.00',ClientDataSet_estoque.FieldByName('PRECO').AsFloat)+ '  ' +
   AjustaStr(ClientDataSet_estoque.FieldByName('QUANTI_ESTOQUE').AsString,7));
GOSTEI 1

Mais Respostas

Jhon

Jhon

01/04/2015

Olá Baltazar, Vou fazer da forma que me passou. Imaginei que teria como especificar um espaço fixo entre os campos da mesma forma que fiz com o valor string,mas tranquilo, desta forma que me passou também funciona neste caso, obrigado pela atenção.
GOSTEI 0
POSTAR