Welches Bit in einer Zahl ist gesetzt

[marabu]

Da müsst ihr jetzt durch:

Delphi-Quellcode:

function BitTest(const c: cardinal; bit: byte): boolean;
begin
  Result := Odd(c shr bit);
end;

Fröhliche Grüße vom marabu