标题:请教异常处理的问题
只看楼主
yaotian2008
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-3-19
 问题点数:0 回复次数:3 
请教异常处理的问题
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
try
x:=strtoint(edit1.Text);
except
showmessage('你输入的不是数字!');
end;
end;
//我的这段处理异常的句子为什么不能处理异常?我在edit1中输入字母A时,怎么程序没有提示"你输入的不是数字!"
搜索更多相关主题的帖子: procedure 
2006-04-03 23:09
fxzmodel
Rank: 2
等 级:新手上路
威 望:4
帖 子:50
专家分:0
注 册:2006-2-20
得分:0 

你把你的代码改成这样试试看.
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
try
{$v+}
 x:=strtoint(edit1.Text);
except
showmessage('你输入的不是数字!');
end;
end;

2006-04-04 00:26
makebest
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:658
专家分:962
注 册:2005-3-17
得分:0 
如果在调试状态执行,出现错误时不要终止,继续就能看到。

或者单独执行编译的 EXE 文件可看到。
2006-04-04 11:57
yaotian2008
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-3-19
得分:0 

我执行EXE文件就看到我设置的提示了,谢谢各位!


2006-04-04 22:16



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-54914-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.358855 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved