A
awfigsk
Unregistered / Unconfirmed
GUEST, unregistred user!
请问一个异常的问题
var
i,j,k:integer;
begin
j:=0;
try
k:=i div j;
[red]showmessage(inttostr(k));[/red]
except
on E:EDivByZero do
[blue]messageDlg(E.Message+#13#13+'Address:'+format('%p',[ExceptAddr]),
mtError,[mbOK],0);[/blue]
end;
end;
当我在代码中不加入红色这部分内容,则不会弹出错误对话框(蓝色这部分代码好像不会
执行?),也就是好像不会触发异常捕捉,?请问这是为什么?
var
i,j,k:integer;
begin
j:=0;
try
k:=i div j;
[red]showmessage(inttostr(k));[/red]
except
on E:EDivByZero do
[blue]messageDlg(E.Message+#13#13+'Address:'+format('%p',[ExceptAddr]),
mtError,[mbOK],0);[/blue]
end;
end;
当我在代码中不加入红色这部分内容,则不会弹出错误对话框(蓝色这部分代码好像不会
执行?),也就是好像不会触发异常捕捉,?请问这是为什么?