Informationen aus Byte

[shmia]

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');