Bits abfragen oder setzen

[sakura]

Na gut, dann noch einmal separat. Irgendwo hatten wir die schon mal...

Setzen eines Bits (0..31)

Delphi-Quellcode:

function SetBit(CurrentValue: Integer; Bit: Byte; Position: Boolean): Integer
begin
  if Position then
    Result := CurrentValue or (1 shl Bit)
  else
    Result := CurrentValue and (not (1 shl Bit));
end;

Setzen eines Bits (0..31)

Delphi-Quellcode:

function GetBit(CurrentValue: Integer; Bit: Byte): Boolean;
begin
  Result := CurrentValue and (1 shl Bit) > 0;
end;

......