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

Материал из DRKB

Битовые множества[править | править код]

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


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

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


Source: http://delphiworld.narod.ru
ID: 00778