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;
...
...