handlexcep.pas

来自「一个典当行的业务管理系统程序」· PAS 代码 · 共 24 行

unit HandlExcep;

interface
uses
    SysUtils,Classes,Forms,Dialogs;

type
    TMyClass=Class(Tobject)
    Public
          Procedure MyOwnExceptionHandler(Sender:Tobject;E:Exception);
    end;
implementation

//下面的过程是自定义的异常处理句柄
procedure TMyClass.MyOwnExceptionHandler(Sender:Tobject;E:Exception);
var
   Information:string;
begin
     Information:='程序发生异常，请根据提示仔细检查代码：'+E.Message+'。';
     messagedlg(Information,mtWarning,[mbYes],0);
     exit;
end;
end.