Diminuir casas decimais de uma quot;Var : Realquot;
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
Curtidas 0
Respostas
Marcelo Saviski
20/10/2003
lblResult := FormatFloat(´#0.0´, Result);
GOSTEI 0
Bestschmidt
20/10/2003
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;
GOSTEI 0