uexception.pas

楠楠写的DBiocp例子都是源码

unit uException;

interface

uses
  Windows, SysUtils, uWin32Const;

type  
  TException = class(Exception)
  protected
    FErrorCode: Integer;
    FErrorSubCode: Integer;
    FErrorMessage: String;
    function GetErrorMessage: String;
  published
    property  ErrorMessage: String read GetErrorMessage;
    property  ErrorCode: Integer read FErrorCode;
    property  ErrorSubCode: Integer read FErrorSubCode;
  public
    constructor Create(Code: Integer; SubCode: Integer); overload;
    constructor Create(Code: Integer; SubCode: Integer; const Details: String); overload;
    destructor  Destroy; override;
  end;

implementation

constructor TException.Create(Code: Integer; SubCode: Integer);
begin
  inherited Create('');
  FErrorCode := Code;
  FErrorSubCode := SubCode;
  FErrorMessage := '';
end;

constructor TException.Create(Code: Integer; SubCode: Integer; const Details: String);
begin
  inherited Create('');
  FErrorCode := Code;
  FErrorSubCode := SubCode;
  FErrorMessage := Details;
  Message := 'Error code is ' + IntToStr(Code) + '. Error subcode is ' +
    IntToStr(FErrorSubCode) + '. Details are ' + Details;
end;

destructor  TException.Destroy;
begin
  inherited Destroy;
end;

function   TException.GetErrorMessage: String;
begin
  Result := uWin32Const.ExceptionMessages[FErrorCode];
  if FErrorMessage <> '' then
    Result := Result + ' Details are: ' + FErrorMessage;
end;

end.