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

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

{******************************************
Параметр 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 (Тетрис) 4 003 • TDictionary Custom Sort 6 113 • Fast Watermark Sources 5 908 • 3D Designer 8 745 • Sik Screen Capture 6 230 • Patch Maker 6 663 • Айболит (remote control) 6 654 • ListBox Drag & Drop 5 513 • Доска для игры Реверси 95 607 • Графические эффекты 6 870 • Рисование по маске 6 077 • Перетаскивание изображений 5 048 • Canvas Drawing 5 413 • Рисование Луны 5 136 • Поворот изображения 4 682 • Рисование стержней 3 295 • Paint on Shape 2 536 • Генератор кроссвордов 3 427 • Головоломка Paletto 2 741 • Теорема Монжа об окружностях 3 530 • Пазл Numbrix 2 321 • Заборы и коммивояжеры 3 008 • Игра HIP 1 964 • Игра Go (Го) 1 882 • Симулятор лифта 2 233 • Программа укладки плитки 1 947 • Генератор лабиринта 2 386 • Проверка числового ввода 2 076 • HEX View 2 399 • Физический маятник 2 031