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

function BitToggle(const val: longint; const TheBit: byte): LongInt;
{©Drkb v.3(2007): www.drkb.ru}
begin
 Result := val xor (1 shl TheeBit);
end;

Автор ответа: s-mike
Взято из http://forum.sources.ru

procedure ToggleBit(SetWord, BitNum: Word);
begin
 SetWord := SetWord xor BitNum; { Переключаем бит }
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...