baseunit.pas

来自「很好地delphi书籍源码」· PAS 代码 · 共 19 行

unit BaseUnit;

interface

type
  TDllNumber = class
  public
    function GetValue: Integer; virtual; abstract;
    procedure SetValue (New: Integer); virtual; abstract;
    procedure Increase; virtual; abstract;
  end;

implementation

end.