[SOS]:为何异常不能被捕获?

[h770]

procedure TForm1.Button2Click(Sender: TObject);
var a:real;
begin
i:=i-1;
try

a:=10/i;
except
on EDivByZero do
exit;
end;
showmessage(floattostr(a));
end;


谢谢大家

[johnzhangbit]

i的定义在哪里，定义了吗？
还有你确定i一定是0吗？

• 打赏
• 举报

回复 赞

[wanwangzhiwang]

浮点用EZeroDivide
整型用EDivByZero

自己看帮助去吧

• 打赏
• 举报

回复 赞

[juliens]

上面老兄说的问题是一个方面，另外我觉得on EDivByZero do这一句也没有多大必要，这样的话你还可以捕捉其他异常，比如说内存溢出等！

• 打赏
• 举报

回复 赞

[ckp]

同意juliens(星星球)

• 打赏
• 举报

回复 赞

[wanwangzhiwang]

on EZeroDivide do
exit;

• 打赏
• 举报

回复 赞

[楚人无衣]

Tools->Debug Options...->Language Exceptions勾去Stop on Delphi Exceptions

• 打赏
• 举报

回复 赞

[ylyn]

Tools->DebugOptions->LanguageExceptions
中有个Stop On Delphi Exceptions的勾去掉

• 打赏
• 举报

回复 赞

[huluobowangmeng]

学习！加帮顶！！

• 打赏
• 举报

回复 赞

[qizhanfeng]

try

...
except
on E: EDivByZero do
showmessage(E.Message)
end;

• 打赏
• 举报

回复 赞