s2.tools.ts2moneyfield.pas

轉載的程序應用框架

unit S2.Tools.TS2MoneyField;

interface

uses
  S2.Tools.TS2Field, S2.Tools.IS2MoneyField, S2.Tools.IS2Money;

type
  TS2MoneyField = class(TS2Field, IS2MoneyField)
  private
    Value: IS2Money;
  public  //  S2.Tools.IS2MoneyField
    function GetValue: IS2Money; virtual;
    procedure SetValue(Value: IS2Money); virtual;
  end;

implementation

{ TS2MoneyField }

function TS2MoneyField.GetValue: IS2Money;
begin
  Result := Value;
end;

procedure TS2MoneyField.SetValue(Value: IS2Money);
begin
  Self.Value.SetValue(Value.GetValue);
end;

end.