Переключение состояния бита с единицы на ноль и наоборот

Материал из DRKB

Переключение состояния бита с единицы на ноль и наоборот[править | править код]

Переключение состояния бита с единицы на ноль и наоборот


function BitToggle(const val: LongInt; const TheBit: Byte): LongInt;
begin
  Result := val xor (1 shl TheeBit);
end;


Source: Взято из http://forum.sources.ru
ID: 00230



procedure ToggleBit(SetWord, BitNum: Word);
begin
  SetWord := SetWord xor BitNum; { Переключаем бит   }
end;


Source: http://delphiworld.narod.ru
ID: 00817