《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.