Переключение состояния бита с единицы на ноль и наоборот
Falk0ner, вс, 06/07/2008 - 15:34.
function BitToggle(const val: longint; const TheBit: byte): LongInt;
{©Drkb v.3(2007): www.drkb.ru}
begin
Result := val xor (1 shl TheeBit);
end;
{©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
begin
SetWord := SetWord xor BitNum; { Переключаем бит }
end;
Отправить комментарий