Переключение состояния бита с единицы на ноль и наоборот
Материал из 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