Okya, um das ganze etwas einfacher zu machen:
Delphi-Quellcode:
function BitSet(Value: Byte; BitCnt: Byte): Boolean;
begin
Result := (( Value AND Round ( power (2, BitCnt-1) )) = Round ( power (2, BitCnt-1) ));
end;
Beispiel:
Delphi-Quellcode:
if BitSet (24, 4) then // TestBit (00011000, 00001000)
ShowMessage ('Ja!');
if BitSet (24, 5) then // TestBit (00011000, 00010000)
ShowMessage ('Ja!');[/delphi]
"Optimistisch ist diejenige Weltanschauung, die das Sein höher als das Nichts stellt und so die Welt und das Leben als etwas an sich Wertvolles bejaht."
Albert Schweitzer