s2.core.ts2user.pas

轉載的程序應用框架

unit S2.Core.TS2User;

interface

uses
  S2.Tools.TS2Object, S2.Core.IS2User, S2.Tools.TS2Time, S2.Tools.TS2Record,
  S2.Tools.IS2Time, S2.Tools.IS2Record;

type
  TS2User = class(TS2Object, IS2User)
  private
    LoginTime: TS2Time;
    User: TS2Record;
  public
    function GetLoginTime: IS2Time; virtual;
    function GetUserInfo: IS2Record; virtual;
  public
    constructor Create(LoginTime: TS2Time; User: TS2Record);
    destructor Destroy; override;
  end;

implementation

uses
  SysUtils;

{ TS2User }

constructor TS2User.Create(LoginTime: TS2Time; User: TS2Record);
begin
  Self.LoginTime := LoginTime;
  Self.User := User;
end;

destructor TS2User.Destroy;
begin
  FreeAndNil(LoginTime);
  FreeAndNil(User);
  inherited;
end;

function TS2User.GetLoginTime: IS2Time;
begin
  Result := LoginTime;
end;

function TS2User.GetUserInfo: IS2Record;
begin
  Result := User;
end;

end.