本文整理自网络,侵删。
该Abort程序停止当前处理并退出到最后一个异常块。这样做不会产生最终用户消息-中止状态为静默。
procedure TForm1.FormCreate(Sender: TObject);
begin
// Enter a try block
Try
ShowMessage('Before abort');
Abort;
ShowMessage('After abort');
Except
On E : Exception do ShowMessage(E.Message + ' exception occured');
end;
ShowMessage('After try');
end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>