s2.tools.ts2date.pas

轉載的程序應用框架

unit S2.Tools.TS2Date;

interface

uses
  Controls, S2.Tools.TS2Data, S2.Tools.IS2Date;

type
  TS2Date = class(TS2Data, IS2Date)
  private
    Value: TDateTime;
  public
    function GetValue: TDate; virtual;
    procedure SetValue(const Value: TDate); virtual;    
  end;

implementation

{ TS2Date }

function TS2Date.GetValue: TDate;
begin
  Result := Value;
end;

procedure TS2Date.SetValue(const Value: TDate);
begin
  Self.Value := Value;
end;

end.