Duas casas decimais!
11/12/2003
0
Amigos.
Tenho o seguinte código
if DBEdit4.Text <> ´0´ then
DBEdit5.Text := FloatToStr(( StrToFloat(DBEdit2.Text)) * (100 - (StrToFloat(DBEdit4.Text))) / 100)
Else
DBEdit5.Text := FloatToStr(( StrToFloat(DBEdit2.Text)) )
Preciso que seja armazenado o valoe com duas casas decimais, mesmo se conter o Zero na última! Não seicomo fazer nem onde usar o código
FormatFloat(´#0.00´,Valor);
Teria como me ajudar?
Tenho o seguinte código
if DBEdit4.Text <> ´0´ then
DBEdit5.Text := FloatToStr(( StrToFloat(DBEdit2.Text)) * (100 - (StrToFloat(DBEdit4.Text))) / 100)
Else
DBEdit5.Text := FloatToStr(( StrToFloat(DBEdit2.Text)) )
Preciso que seja armazenado o valoe com duas casas decimais, mesmo se conter o Zero na última! Não seicomo fazer nem onde usar o código
FormatFloat(´#0.00´,Valor);
Teria como me ajudar?
Leonardo Bonoto
Curtir tópico
+ 0
Responder
Posts
11/12/2003
Venus
será q a propriedade displayformat do TField resolve seu problema ?
juliana
juliana
Responder
Clique aqui para fazer login e interagir na Comunidade :)