Установка бита в ноль

Материал из 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