geht auch so
containsbits := Boolean(Wert AND Bitmaske);
geht aber nur mit 8 bit glaub ich. Ausprobieren. ansonsten kannst dir ja au
Delphi-Quellcode:
const
bit00 = $0001;
bit01 = $0002;
bit02 = $0004;
bit03 = $0008;
bit04 = $0010;
bit05 = $0020;
bit06 = $0040;
bit07 = $0080;
...
bit31 = $8000;
definieren und prüfen mit
containsbit := (wert and bit12)<>0;