5,927
社区成员
发帖
与我相关
我的任务
分享关于错误捕获，我的代码错在那里？
为了保证Edit1.Text输入的是合法数字，我用了下面的程序。但运行时程序中断，测试时我输入的是99.99.99。请高手指点一二。
...全文
请发表友善的回复…
发表回复
delphi0302 2002-07-18
- 打赏
- 举报
你是在delphi开发环境下测试的吧
只要有异常，程序会跟踪到异常的那一个。。。会给你错误的信息哦：）
你单独执行那个生成的exe，看看，报错信息就是你所想要的哦
只要有异常，程序会跟踪到异常的那一个。。。会给你错误的信息哦：）
你单独执行那个生成的exe，看看，报错信息就是你所想要的哦
oracle_lover 2002-07-18
- 打赏
- 举报
哈， 如果你是在Delphi编程环境下调试程序时运行的，那么程序会在每个异常处中断。这并不意味着你的程序写的有问题。
单独运行生成的*.exe文件，你会发现一切如你所愿。
上述问题可能可以在Delphi中修改编译属性得到改变。
单独运行生成的*.exe文件，你会发现一切如你所愿。
上述问题可能可以在Delphi中修改编译属性得到改变。
zfmich 2002-07-17
- 打赏
- 举报
调试的时候会报错，但运行的时候就不会了。
s_cube 2002-07-17
- 打赏
- 举报
什么运行时出错?
你可以在except里用
on e:Exception do
showmessage(e.message);
看看错误是什么
你可以在except里用
on e:Exception do
showmessage(e.message);
看看错误是什么
s_cube 2002-07-17
- 打赏
- 举报
什么运行时出错?
你可以在except里用
on e:Exception do
showmessage(e.message);
看看错误是什么
你可以在except里用
on e:Exception do
showmessage(e.message);
看看错误是什么
馮強 2002-07-17
- 打赏
- 举报
yansea(思宏) :我写的这代码在运行时出错啊!!!!!!!!
yansea 2002-07-17
- 打赏
- 举报
同意·！
馮強 2002-07-17
- 打赏
- 举报
procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
StrtoFloat(Edit1.Text);
except
Begin
Application.MessageBox('请输入合法的数字!','错误：',MB_OK);
Edit1.SetFocus;
end;
end;
end;
begin
try
StrtoFloat(Edit1.Text);
except
Begin
Application.MessageBox('请输入合法的数字!','错误：',MB_OK);
Edit1.SetFocus;
end;
end;
end;
