110,566
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button2Click(Sender: TObject);
begin
if True then
Abort; {激发一个静态异常后直接退出Button2Click,不会执行后面的
ShowMessage语句}
ShowMessage(’处理完毕’);
end;
t()
{
try
{
t1();
t2();
t3();
}
catch(MyException me)
{
return;
}
t1()
{
// do sth. here;
if ( sth ) throw (new MyException()); //为直接退出t()抛出异常;
}