Битовые множества

Бит - это байт минус налоги.

В явном виде битовых множеств в языке Object Pascal нет. Но вместо этого можно использовать обычные множества, которые на самом деле и хранятся как битовые. Если множество вам нужно для проверки, установлен ли какой то бит в слове

type  
  PByteSet = ^TByteSet;  
  TByteSet = set of Byte;  
var  
  W: Word;  
...  
{ если бит 3 в слове W установлен, тогда ... }  
  if 3 in PByteSet(@W)^ then ...  
...

В Delphi 2.0 есть специальный класс TBitSet, который ведет себя как битовое множество.Для Delphi 1.0 вы можете написать такой класс самостоятельно.

Недавно добавленные исходники
• 3D Designer 81 • Sik Screen Capture 65 • Patch Maker 62 • Айболит (remote control) 72 • ListBox Drag & Drop 62 • Доска для игры Реверси 898 • Графические эффекты 71 • Рисование по маске 50 • Перетаскивание изображений 57 • Canvas Drawing 53 • Рисование Луны 134 • Поворот изображения 43 • Рисование стержней 38 • Paint on Shape 33 • Генератор кроссвордов 49 • Головоломка Paletto 51 • Теорема Монжа об окружностях 98 • Пазл Numbrix 46 • Заборы и коммивояжеры 67 • Игра HIP 51 • Игра Go (Го) 45 • Симулятор лифта 45 • Программа укладки плитки 47 • Генератор лабиринта 90 • Проверка числового ввода 38 • HEX View 93 • Физический маятник 96 • Задача коммивояжера 122 • Автомобильная пробка 46 • Квадратные сетки из слов 40