Bits

[Nightshade]

Delphi-Quellcode:

function TestBit(Value : byte; bit : byte) : boolean;
begin  
  if (Value AND (1 shl bit )) = (1 shl bit) then
    result := true
  else
    result := false;
end;

Sollte so gehen...

Ansonsten guck dir mal die Befehle "AND", "OR", "NOT" an...