s2.tools.ts2money.pas

轉載的程序應用框架

unit S2.Tools.TS2Money;

interface

uses
  S2.Tools.TS2Data, S2.Tools.IS2Money;

type
  TS2Money = class(TS2Data, IS2Money)
  private
    Value: Currency;
  public
    function GetValue: Currency; virtual;
    procedure SetValue(const Value: Currency); virtual;
  end;

implementation

{ TS2Money }

function TS2Money.GetValue: Currency;
begin
  Result := Value;
end;

procedure TS2Money.SetValue(const Value: Currency);
begin
  Self.Value := Value;
end;

end.