Prüfen ob Bitposition gesetzt

[Binärbaum]

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