[Resolvido] com arquivo txt

[natiii 0]

Bom dia!

 

Minha dúvida é a seguinte: Estou gerando um arquivo txt, mas nos campos onde, por exemplo, um valor deveia ser 305,60, o número fica 305,6...No arquivo deveria ficar com tamanho 12 e sem vírgula, ou seja: 000000030560, mas na realidade está ficando: 000000003056. A função que eu estou usando não adianta, pois ela acrescenta OU zeros antes OU depois e eu preciso que seja acrescentado dos dois lados...Alguelm tem alguma idéia do que eu possa fazer?

 

Preciso urgente!

 

Desde já agradeço!

 

Natiii http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

[marcio.theis 3]

Antes de colocar os zeros antes, faz um FloatToStrF(valor,ffNumber,15,2) ele vai ficar sempre com duas casas decimais, e então passar para as suas funções de conversão...

[Rodrigo Miss 1]

Fiz uma função pra você :

function TForm1.number_format(const str: string; len: integer): string;
var
  aux: string;
begin
  aux:= StringReplace(str, ',','', [rfReplaceAll]);
  aux:= StringReplace(aux, '.','', [rfReplaceAll]);
  result:= StringOfChar('0', len - Length(aux)) + aux;
end;

Invocando a function:

var 
	Valor: Double;
begin
	Valor:= 305.60;
	Edit1.Text:= number_format(FloatToStrF(Valor, ffFixed, 12,2) , 12);

[natiii 0]

Mas o que seria esse ffNumber?

[marcio.theis 3]

Mas o que seria esse ffNumber?

É o tipo de formato desejado...

Tem ainda:

ffGeneral

ffExponent

ffFixed

ffCurrency

[natiii 0]

Amigos, acabei usando a função copy mesmo...

Para particionar o valor inteiro e o valor fracionado...

 

Muito obrigada!

 

Problema resolvido!

 

[]'s

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif