s2.tools.ts2datefield.pas

轉載的程序應用框架

unit S2.Tools.TS2DateField;

interface

uses
  S2.Tools.IS2DateField, S2.Tools.TS2Field, S2.Tools.IS2Date;

type
  TS2DateField = class(TS2Field, IS2DateField)
  private
    Value: IS2Date;
  public  //  S2.Tools.IS2DateField
    function GetValue: IS2Date; virtual;
    procedure SetValue(Value: IS2Date); virtual;
  end;

implementation

uses
  Variants;

{ TS2DateField }

function TS2DateField.GetValue: IS2Date;
begin
  Result := Value;
end;

procedure TS2DateField.SetValue(Value: IS2Date);
begin
  Self.Value := Value;
end;

end.