Fórum Erro : quot;is not a valid floating point value #275647
05/04/2005
0
Estou tentando fazer um calculo entre valores digitados em edits e to usando o seguinte codigo no evento onexit:
Edit41.Text:= FormatFloat(´0.00´, (StrToFloat(Edit36.Text) + StrToFloat(Edit37.Text) + StrToFloat(Edit38.Text)));
mas se naum for digitado nenhum valor no edit ocorre a mensagem de erro: ´is not a valid floating point value.
Já tentei varias formas mas naum consegui tratar isso, alguem sabe como me ajudar??
Desde já agradeço.
Edit41.Text:= FormatFloat(´0.00´, (StrToFloat(Edit36.Text) + StrToFloat(Edit37.Text) + StrToFloat(Edit38.Text)));
mas se naum for digitado nenhum valor no edit ocorre a mensagem de erro: ´is not a valid floating point value.
Já tentei varias formas mas naum consegui tratar isso, alguem sabe como me ajudar??
Desde já agradeço.
Fabiano_aprendiz
Curtir tópico
+ 0
Responder
Posts
05/04/2005
Lucas Silva
Você vai ter que fazer if´s ai....
pra ficar mais fácil pode ser assim...
pra ficar mais fácil pode ser assim...
if Edit36.Text = ´´ Then Edit36.Text := ´0´; if Edit37.Text = ´´ Then Edit37.Text := ´0´; if Edit38.Text = ´´ Then Edit38.Text := ´0´; Edit41.Text:= FormatFloat(´0.00´, (StrToFloat(Edit36.Text) + StrToFloat(Edit37.Text) + StrToFloat(Edit38.Text)));
Responder
Gostei + 0
04/05/2005
Steve_narancic
para facilitar mais ainda pode-se definir um valor default para quando não conseguir converter para float com a função
StrToFloatDef(String, ValorFloat)
Exemplo:
StrToFloatDef(Edit1.Text, 0)
Caso não conseguir converter faz com que o valor seja 0 (zero)
StrToFloatDef(String, ValorFloat)
Exemplo:
StrToFloatDef(Edit1.Text, 0)
Caso não conseguir converter faz com que o valor seja 0 (zero)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)