ginge es nich auch kürzer so?
Delphi-Quellcode:
function TestBit(Value : byte; bit : byte) : boolean;
begin
result:=(Value AND (1 shl bit )) = (1 shl bit);
end;
ich hätte es jetzt spontan so gemacht:
Delphi-Quellcode:
function TestBit(Value : byte; bit : byte) : boolean;
begin
result:=(Value and (1 shl bit))<>0;
end;