Hier mal eine Funktion aus der JCL (eine wahre Schatzkammer):
Delphi-Quellcode:
// Auszug aus Unit JclLogic.pas
// [url]http://sourceforge.net/projects/jcl[/url]
const
// Constants defining the number of bits in each Integer type
BitsPerByte = 8;
type
TBitRange = Byte;
function TestBit(
const Value: Byte;
const Bit: TBitRange): Boolean;
begin
Result := (Value
and (1
shl (Bit
mod BitsPerByte))) <> 0;
end;
Mit TestBit kann man jedes Bit prüfen:
if TestBit(meinByte, 7) then ShowMessage('höchstwertiges Bit gesetzt');