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