[delphi-br] Usando o onExit - Erro - is not a valid floating point value

Mon, 10 Dec 2007 07:11:56 -0800 

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!!

Responder a