hallo,
kann man
Delphi-Quellcode:
function SetBit(const AByte: Integer; const ANewBitStatus: Boolean; const ABitIndex: TBitIndex): Integer;
begin
if ANewBitStatus then
result := AByte or (1 shl (ABitIndex - 1))
else
result := AByte and not(1 shl (ABitIndex - 1));
end;
noch irgendwie verbessern. Also das es weniger performance benötigt. Irgendwie denk ich mir das man das "ABitindex - 1" doch bestimmt irgendwie weg optimieren kann damit eine rechenoperation weniger ausgeführt werden muss