s2.error.s2exception.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 47 行

unit S2.Error.S2Exception;

interface

uses
  SysUtils;

type
  S2Exception = class(Exception)
  private
    ErrMsg: string;
    ErrClassName: string;
    ErrFunName: string;
  public
    function GetErrMsg: string;
    function GetErrClassName: string;
    function GetErrFunName: string;
    constructor Create(const ErrClassName, ErrFunName, ErrMsg: string);
  end;

implementation

{ S2Exception }

constructor S2Exception.Create(const ErrClassName, ErrFunName, ErrMsg: string);
begin
  Self.ErrClassName := ErrClassName;
  Self.ErrFunName := ErrFunName;
  Self.ErrMsg := ErrMsg;
end;

function S2Exception.GetErrClassName: string;
begin
  Result := ErrClassName;
end;

function S2Exception.GetErrFunName: string;
begin
  Result := ErrFunName;
end;

function S2Exception.GetErrMsg: string;
begin
  Result := ErrMsg;
end;

end.