So einfach kann man das überprüfen:
(
wert ist der zu prüfende Cardinal,
bitIndex die Nummer des Bits (Zählung beginnt bei null, als muss
bitIndex im Bereich 0..31 liegen))
Delphi-Quellcode:
function BitGesetzt(wert: Cardinal; bitIndex: Byte): Boolean;
begin
Result:= (wert and (1 shl bitIndex)) <>0;
end;
Als Ergebnis erhält man True, wenn das betreffende Bit gesetzt ist.
MfG
Binärbaum