formatação!

Delphi

19/08/2003

Ola
Tenho 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 ela tem que receber 1,1
manja... tipo dessa forma ela pega as casa tb =(
alguém pode me ajudar?
Valeu =)


Fer

Fer

Curtidas 0

Respostas

Abueno_silva

Abueno_silva

19/08/2003

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;


GOSTEI 0
Allen74

Allen74

19/08/2003

Ou então:

Quant := FormatFloat (´#,0.00´, VarQTD);



GOSTEI 0
Fer

Fer

19/08/2003

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


GOSTEI 0
Claudio_f

Claudio_f

19/08/2003

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.br
ICQ:259609983


GOSTEI 0
Bacalhau

Bacalhau

19/08/2003

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


GOSTEI 0
POSTAR