Schneller Zugriff auf Bits

[Binärbaum]

Als Funktion für dieses Problem könnte man folgendes verwenden:

Delphi-Quellcode:

type
 TBitOp = (boCheck, boSet, boToggle);
 
 ... 
 
function BitTest(var x: LongInt; num_of_bit: Byte; op: TBitOp = boCheck): Boolean;
begin
 Result:= True;
 case op of
  boCheck: Result:= ((x and (1 shl num_of_bit)) <>0);
  boSet: x:= (x or (1 shl num_of_bit));
  boToggle: x:= (x xor (1 shl num_of_bit));  
 end;
end;

Also x ist der Integer, der überprüft oder verändert werden soll.
Über den Parameter op: TBitOp steuert man, was getan werden soll: Überprüfen ob ein Bit gesetzt ist(boCheck, Standardeinstellung; ergibt True, wenn gesetzt), Bit setzen (boSet) oder ein Bit negieren (boToggle).
Die Operationen boSet und boToggle geben immer True zurück, da der Rückgabewert in diesem Fall ja nicht von Bedeutung ist.
Der Parameter num_of_bit gibt an, um welches bit es sich handelt. Achtung: Zählung beginnt bei null und geht demzufolge bis 31.