|
Registriert seit: 18. Apr 2003
1.037 Beiträge
|
Re: Prüfen ob Bitposition gesetzt
7. Mär 2005, 14:38
Delphi-Quellcode:
function TBiPi.GetBit(Index: Word): Boolean;
begin
Result := Image[Index DIV 8] AND ($01 SHL (Index MOD 8)) > $00;
end;
Image ist ein Array of Byte.
"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
|