Delphi控件源码

开发平台：

Delphi

NumIntf.pas：源码内容

							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.
 

						