Установка бита в ноль
Материал из DRKB
Установка бита в ноль[править | править код]
Установка бита в ноль
function BitOff(const val: LongInt; const TheBit: Byte): LongInt;
begin
Result := val and ((1 shl TheBit) xor $FFFFFFFF);
end;
Source: Взято из http://forum.sources.ru
ID: 00228
function BitOff(const val: LongInt; const TheBit: Byte): LongInt;
begin
Result := val and not (1 shl TheBit);
end;
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00229
procedure ClearBit(SetWord, BitNum: Word);
begin
SetWord := SetWord or BitNum; { Устанавливаем бит }
SetWord := SetWord xor BitNum; { Переключаем бит }
end;
Source: http://delphiworld.narod.ru
ID: 00816