myldbexcept.pas

来自「一个本地database引擎,支持中文T_Sql查询,兼容DELPHI标准数据库」· PAS 代码 · 共 61 行

unit MYLDBExcept;

interface

uses SysUtils, Classes, MYLDBConst;

type


////////////////////////////////////////////////////////////////////////////////
//
// EMYLDBException
//
////////////////////////////////////////////////////////////////////////////////


  EMYLDBException = class( Exception )
  public
    NativeError: Integer;
    constructor Create(NativeErrorCode: Integer; ErrorMsg: String); overload;
    constructor Create(NativeErrorCode: Integer; ErrorMsg: String; const Args: array of const); overload;

  end; // EMYLDBException

implementation


//------------------------------------------------------------------------------
// constructor
//------------------------------------------------------------------------------
constructor EMYLDBException.Create(NativeErrorCode: Integer; ErrorMsg: String);
var
  ErMessage: string;
begin
  NativeError := NativeErrorCode;
  ErMessage := ErrorMsg;
  ErMessage := ErMessage + ' - Native error: '+ Format('%.5d',[NativeErrorCode]);
  inherited Create(ErMessage);
end; // Create


//------------------------------------------------------------------------------
// constructor
//------------------------------------------------------------------------------
constructor EMYLDBException.Create(NativeErrorCode: Integer; ErrorMsg: String; const Args: array of const);
var
  ErMessage: string;
begin
  NativeError := NativeErrorCode;
  try
    ErMessage := Format(ErrorMsg, Args);
  except
    ErMessage := ErrorMsg + ' Arguments are invalid!';
  end;
  ErMessage := ErMessage + ' - Native error: ' + Format('%5d',[NativeErrorCode]);
  inherited Create(ErMessage);
end; // Create


end.