numintf.pas

来自「大家来看看很好的源码啊里面包含很多知识点啊学习学习」· PAS 代码 · 共 16 行

unit NumIntf;

interface

type
  INumber = interface
    ['{B4131140-7C2F-11D0-98D0-444553540000}']
    function GetValue: Integer; stdcall;
    procedure SetValue (New: Integer); stdcall;
    procedure Increase; stdcall;
  end;

implementation

end.