hi...wenn du sets(mengen) verwendest, arbeitest du eigentlich auch mit bits, du merkst es nur nicht:
Delphi-Quellcode:
Type T8Bits = set of (bit1,bit2,bit3,bit4,bit5,bit6,bit7,bit8);
var bits: T8Bits = [bit1,bit2,bit5]; // paar bits setzen
...
showMessage(intToStr(byte(bits)); // hier sollte 19 bzw. $13 rauskommen.
...
if bit2 in bits then showMessage('juhuu! bit 2 is da');
das nur mal an rande...um noch andere möglichkeiten aufzudecken