formata��o!

Question

OlaTenho uma variavel string que recebe o valor de uma currency  Quant:=floattostr(VarQTD); meu problema ... tipo se o valor da currecy for 1,00 minha variavel string tem que receber 1, se for 1,10 el...

Abueno_silva · Answer

Tente este c�digo para ver se � o q voc� precisa (no form colocar um button e 3 labels):

procedure TForm1.Button1Click(Sender: TObject);
var
a : currency;
b : string;
begin
a := 1.00;
b := floattostrf(a,ffgeneral,10,2);
label1.caption := b;
a := 1.10;
b := floattostrf(a,ffgeneral,10,2);
label2.caption := b;
a := 1.11;
b := floattostrf(a,ffgeneral,10,2);
label3.caption := b;

end;

Allen74 · Answer

Ou ent�o:[code:1:3264f25efe]Quant := FormatFloat (�#,0.00�, VarQTD);[/code:1:3264f25efe]...

Fer · Answer

ola ... desculpe eu informei errado... tanto currency como float ao converter para string (floatostr) ele perdes os ultioms zeros .... valeuuuuu =)...

Claudio_f · Answer

FeR!   Tambem estou com esse mesmo problema, se voce descobrir como fazer, me escreve, se eu descobrir como fazer posto uma mensagem no forum pra ti.claudio_f@bol.com.brICQ:259609983...

Bacalhau · Answer

A resposta j� foi dada: n�o utilizem a fun��o FloatToStr, mas sim FloatToStrF. S� muda o �F�, mas resolve o problema. Quanto aos par�metros a passar, v�o ao help, que explica muito bem

F�rum formata��o! #175903