Управление битами

Существует ли "человеческий" способ гашения и выставления битов?

{******************************************
Параметр TheBit считается в пределах 0..31
******************************************}

unit Bitwise;

interface

function IsBitSet(const val: longint; const TheBit: byte): boolean;
function BitOn(const val: longint; const TheBit: byte): LongInt;
function BitOff(const val: longint; const TheBit: byte): LongInt;
function BitToggle(const val: longint; const TheBit: byte): LongInt;

implementation

function IsBitSet(const val: longint; const TheBit: byte): boolean;
begin
  result := (val and (1 shl TheBit)) <> 0;
end;

function BitOn(const val: longint; const TheBit: byte): LongInt;
begin
  result := val or (1 shl TheBit);
end;

function BitOff(const val: longint; const TheBit: byte): LongInt;
begin
  result := val and ((1 shl TheBit) xor $FFFFFFFF);
end;

function BitToggle(const val: longint; const TheBit: byte): LongInt;
begin
  result := val xor (1 shl TheeBit);
end;

end.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 255 • TDictionary Custom Sort 3 403 • Fast Watermark Sources 3 158 • 3D Designer 4 915 • Sik Screen Capture 3 409 • Patch Maker 3 615 • Айболит (remote control) 3 817 • ListBox Drag & Drop 3 077 • Доска для игры Реверси 82 432 • Графические эффекты 4 014 • Рисование по маске 3 312 • Перетаскивание изображений 2 688 • Canvas Drawing 2 828 • Рисование Луны 2 641 • Поворот изображения 2 251 • Рисование стержней 2 192 • Paint on Shape 1 591 • Генератор кроссвордов 2 273 • Головоломка Paletto 1 790 • Теорема Монжа об окружностях 2 285 • Пазл Numbrix 1 701 • Заборы и коммивояжеры 2 078 • Игра HIP 1 297 • Игра Go (Го) 1 248 • Симулятор лифта 1 494 • Программа укладки плитки 1 241 • Генератор лабиринта 1 566 • Проверка числового ввода 1 385 • HEX View 1 515 • Физический маятник 1 372