s2.tools.ts2stringfield.pas

轉載的程序應用框架

unit S2.Tools.TS2StringField;

interface

uses
  S2.Tools.TS2Field, S2.Tools.IS2StringField;

type
  TS2StringField = class(TS2Field, IS2StringField)
  private
    Value: string;
  public  //  S2.Tools.IS2StringField
    function GetValue: string; virtual;
    procedure SetValue(const Value: string); virtual;
  end;

implementation

uses
  Variants;

{ TS2StringField }

function TS2StringField.GetValue: string;
begin
  Result := Value;
end;

procedure TS2StringField.SetValue(const Value: string);
begin
  Self.Value := Value;
end;

end.