s2.tools.ts2doublefield.pas

轉載的程序應用框架

unit S2.Tools.TS2DoubleField;

interface

uses
  S2.Tools.TS2Field, S2.Tools.IS2DoubleField;

type
  TS2DoubleField = class(TS2Field, IS2DoubleField)
  private
    Value: Double;
  public  //  S2.Tools.IS2DoubleField
    function GetValue: Double; virtual;
    procedure SetValue(const Value: Double); virtual;  
  end;

implementation

{ TS2DoubleField }

function TS2DoubleField.GetValue: Double;
begin
  Result := Value;
end;

procedure TS2DoubleField.SetValue(const Value: Double);
begin

end;

end.