Delphi遇到异常可以立刻退出吗

Delphi遇到错误可以立刻退出吗
像VB那样，有错误就立刻退出。不要弹出Access Violation的对话框，然后继续下去

[解决办法]

Delphi(Pascal) code

  private   procedure   HandleError(Sender:   TObject;   E:   Exception);  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginapplication.OnException:=HandleError; StrToInt('sssssss');end;procedure   TForm1.HandleError(Sender:   TObject;   E:   Exception);begin  Application.Terminate;end;end.
[解决办法]
楼上回答了
[解决办法]
或者在主窗体里面放置一个ApplicationEvents1控件，在里面的OnException事件中写Application.Terminate;其实原理是一样
[解决办法]
VB那种难道就不是人干预的？
[解决办法]
在dpr代码里：
Delphi(Pascal) codetry  Application.Run;except  Application.Terminate;end;
[解决办法]
程序一出错,就退出???有这功能的软件,用户体验肯定会非常糟糕

虽然可以实现,但暂没见过有这么写的...

Delphi遇到异常可以立刻退出吗

热点推荐