Erro : quot;is not a valid floating point value

Delphi

05/04/2005

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.


Fabiano_aprendiz

Fabiano_aprendiz

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

05/04/2005

Você vai ter que fazer if´s ai....


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)));



GOSTEI 0
Steve_narancic

Steve_narancic

05/04/2005

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)


GOSTEI 0
POSTAR