|
Битовые множества |
Previous Top Next |
В явном виде битовых множеств в языке Object Pascal нет. Но вместо этого можно использовать обычные множества, которые на самом деле и хранятся как битовые. Если множество вам нужно для проверки, установлен ли какой то бит в слове
Code: |
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 вы можете написать такой класс самостоятельно.
©Drkb::00778
DelphiWorld 6.0