如何再次触发异常(50分)

  • 主题发起人 主题发起人 njcw666
  • 开始时间 开始时间
N

njcw666

Unregistered / Unconfirmed
GUEST, unregistred user!
我在学习delphi的时候,书上讲一旦发生了异常,程序可以跳转到无法控制的地方,
要想从新,控制必须重新触发异常,请问如何从新触发异常,能否给出示例代码,加以一定
的解释?
 
try
a := StrtoInt(Edit1.Text); //发生异常
except
a := 0; //保护,将a赋值0;
Raise; //重新触发,用户将看到DELPHI自己的错误提示(好像在Const.pas中定义的)
end;
ShowMessage(InttoStr(a));//由于Raise,所以此行将不执行。
 
谢谢,如何让程序继续执行,你的ShowMessage(InttoStr(a));语句呢
 
用 try ... finally ...
 
我是说,在捕获错误后,如合使程序再运行下去。
 
那你就不能raise了,他会返回到上层的。要不你就按SupermanTm说得,用
try...finally...end 把她包起来
 
tseug能否讲详细一点,上层是指那一层?
 
继续学习中。。。
 

Similar threads

D
回复
0
查看
911
DelphiTeacher的专栏
D
D
回复
0
查看
868
DelphiTeacher的专栏
D
D
回复
0
查看
753
DelphiTeacher的专栏
D
后退
顶部