| SetBit Routines | 
Unit
QESBPCSSystem
| Overloaded Variants | 
| Procedure SetBit(var BitList: TESBBitList; const I: Byte); | 
| Procedure SetBit(var BitList: TESBLongBitList; const I: Byte); | 
Declaration
Procedure SetBit(var BitList: TESBBitList; const I: Byte);
| Parameters | 
| BitList | BitList to process. | 
| I | Bit to clear, starts at 0. | 
Category
Memory OperationsImplementation
 
| procedure SetBit (var BitList: TESBBitList; const I: Byte); asm and edx, $0f bts [eax], edx //Set to 1 the bit #I End; | 
Declaration
Procedure SetBit(var BitList: TESBLongBitList; const I: Byte);Implementation
 
| procedure SetBit (var BitList: TESBLongBitList; const I: Byte); asm and edx, $1f bts [eax], edx //Set to 1 the bit #I End; | 
|  |