binintf.pas

详细讲述如何用delphi进行com编程

unit BinIntf;

interface

type
  IOneDBin = interface
    ['{7856B7E3-EF75-11D2-B3AB-0040F67455FE}']
    procedure SetMaxValue(AMaxValue: Integer);
    procedure AddItem(AQuantity: Integer; ADescription: WideString; AValue: Integer);
    procedure Optimize;
    function NextBin: Boolean;
    function NextItem(var ADescription: WideString; var AValue: Integer): Boolean;
  end;

const
  Class_NextFit: TGUID = '{7856B7E2-EF75-11D2-B3AB-0040F67455FE}';

implementation

end.