Fórum Diminuir casas decimais de uma quot;Var : Realquot; #189721
20/10/2003
0
Boa tarde!
Estou usando uma Var do tipo Real para fazer o calculo de uma porcentagem e passando seu valor para String. Mas gostaria que fosse passado com apenas um casa apos a virgula. Por exemplo:
3,45567687
Desejado:
3,5
Código:
A := strtofloat(lbl1.caption); (Type Real)
B := strtofloat(lbl2.caption); (Type Real)
Result := (A / B)*100 - 100; (Type Real)
lblResult := floattostr(Result);[/b]
Estou usando uma Var do tipo Real para fazer o calculo de uma porcentagem e passando seu valor para String. Mas gostaria que fosse passado com apenas um casa apos a virgula. Por exemplo:
3,45567687
Desejado:
3,5
Código:
A := strtofloat(lbl1.caption); (Type Real)
B := strtofloat(lbl2.caption); (Type Real)
Result := (A / B)*100 - 100; (Type Real)
lblResult := floattostr(Result);[/b]
Bstavas
Curtir tópico
+ 0
Responder
Posts
20/10/2003
Marcelo Saviski
lblResult := FormatFloat(´#0.0´, Result);
Responder
Gostei + 0
20/10/2003
Bestschmidt
Se vc estiver passando este valor para uma string, então use:
lblValor.Caption := FloatToStrf(valor_variavel,ffnumber,15, 2);
este comando formata um número real para 15 casas antes da vírgula e 2 depois da vírgula.
Valeu? ´Té mais;
lblValor.Caption := FloatToStrf(valor_variavel,ffnumber,15, 2);
este comando formata um número real para 15 casas antes da vírgula e 2 depois da vírgula.
Valeu? ´Té mais;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)