回 帖 发 新 帖 刷新版面

主题:[讨论]各位哥哥姐姐、老师,谁能帮帮我,不胜感激!

为什么还是异常呢,我都快崩溃了...
   procedure TForm1.Edit1Exit(Sender: TObject);
begin
    try
      strtofloat(trim(edit1.Text));
    except
      showmessage('请输入合理的数值类型!');
      edit1.Text:='';
      edit1.SetFocus;
    end;
end;


[em7]

回复列表 (共4个回复)

沙发

??????

板凳


   呵呵~ 谢谢上面的大哥~  据说此代码脱离IDE运行就不会出现异常对话框~

3 楼

你输入了非数字,当然异常了!

4 楼

谢谢你!
我的意思是说我已经用  Try......   Except...... 来捕捉EConvertError了,但是运行的时候还是会导致软件崩溃!
   后来又查了一下,脱离了IDE后就没事了,多谢 “烟是情人,酒是兄弟!
”关注啊!

我来回复

您尚未登录,请登录后再回复。点此登录或注册