?? binintf.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -