Prüfen ob Bitposition gesetzt

[maximov]

Noch eine möglicjkeit:

Delphi-Quellcode:

type
  T32Bits = set of (0..31);
...
var
  I:integer;
begin
  i := ???;
  ...
  if 0 in T32Bits(i) then juhuu(0);  // bit 0 prüfen
  if 3 in T32Bits(i) then juhuu(3);  // bit 3 prüfen
end;

//edit: TBits -> T32Bits