s2.tools.ts2time.pas

轉載的程序應用框架

unit S2.Tools.TS2Time;

interface

uses
  S2.Tools.TS2Data, S2.Tools.IS2Time;

type
  TS2Time = class(TS2Data, IS2Time)
  private
    Value: TDateTime;
  public  //  S2.Tools.IS2Time
    function GetValue: TDateTime; virtual;
    procedure SetValue(const Value: TDateTime); virtual;  
  end;

implementation

{ TS2Time }

function TS2Time.GetValue: TDateTime;
begin
  Result := Value;
end;

procedure TS2Time.SetValue(const Value: TDateTime);
begin
  Self.Value := Value;
end;

end.