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

Delphi , Синтаксис , Записи и Множества

В явном виде битовых множеств в языке 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 вы можете написать такой класс самостоятельно.

Статья Битовые множества раздела Синтаксис Записи и Множества может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Записи и Множества ::