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

Битовые множества В явном виде битовых множеств в языке 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 вы можете написать такой класс самостоятельно.
http://delphiworld.narod.ru/
DelphiWorld 6.0

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

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