delphi Abort 用法

该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;