Use o StrToFloatDef() Assim vc passa um valor default para o campo caso não esteja preenchido.
Ficaria algo assim: editTotal.text := floattostr(StrToFloatDef(editPaletes.text, 0) + StrToFloatDef(editQtde.text, 0)); Assim caso ocorra algum erro na conversão de string para float.. O valor a ser considerado será 0 (poderia ser qualquer outro, desde q seja float). []'s Thiago Filiano -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de itasouza Enviada em: segunda-feira, 10 de dezembro de 2007 13:12 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Usando o onExit - Erro - is not a valid floating point value Boa Tarde a todos Pessoal, veja se pode me ajudar.. No onExit de um de dois edits tenho o seguinte código: VerificarCampos; editTotal.text := floattostr(strtofloat(editPaletes.text) + strtofloat(editQtde.text)); o sistema está gerando erro ao sair dos edits, então fiz um teste no campo: procedure TfrmLancamento.VerificarCampos; begin //1º teste if (EditPaletes.Text = '') and (EditQtde.Text = '') then begin if Application.MessageBox('O campo está vazio, Deseja manter?','Confirme',MB_YESNO+ MB_ICONQUESTION)= MRYES then begin EditPaletes.SetFocus; Exit; end; end end; Mais está gerando o mesmo erro. Project SisCont.exe raised exception class EConvertError with message" is not a valid floating point value'. Process stopped. Use or Run to continue. Alquem poderia me ajudar!! Agradeço!! -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos ------------------------------------------------------------------------- Esta mensagem foi verificada pelo sistema KingNoSpam (versao 1.4.2) Assinatura: !DSPAM:475d573e34724291781864! Resultado: INOCENTE Para reportar este e-mail como SPAM, clique aqui: http://webmail.americasoft.com.br/retrain.php?sigG5d573e34724291781864&class =am&[EMAIL PROTECTED]
