Pessoal,
Uso o Lazarus e desenvolvi o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Edit3.text:=floattostr(strtofloat(edit1.text)/strtofloat(edit2.text));
except
on E:Exception do
begin
ShowMessage(E.message);
end;
end;
end;
Quando ele executa, ele dá o seguinte erro: project1.exe raised exception
class 'External: SIGFPE'
Porém, se eu executo ele pelo .exe, ele não causa o erro.
Quem pode ajudar? É urgente pessoal!!!
Abraços,
Atenciosamente,
Paulo César de Oliveira,
[As partes desta mensagem que não continham texto foram removidas]
