s2.tools.ts2integerfield.pas

轉載的程序應用框架

unit S2.Tools.TS2IntegerField;

interface

uses
  S2.Tools.TS2Field, S2.Tools.IS2IntegerField;

type
  TS2IntegerField = class(TS2Field, IS2IntegerField)
  private
    Value: Integer;
  public  //  S2.Tools.IS2IntegerField
    function GetValue: Integer; virtual;
    procedure SetValue(const Value: Integer); virtual;  
  end;

implementation

{ TS2IntegerField }

function TS2IntegerField.GetValue: Integer;
begin
  Result := Value;
end;

procedure TS2IntegerField.SetValue(const Value: Integer);
begin
  Self.Value := Value;
end;

end.