Datei bitweise auslesen

[Joe24]

Bitweises auslesen von Bytes kann so realisiert werden:

Delphi-Quellcode:

var
  b : Byte;

begin

  b and 1 = 1 --> bit 1 ist gesetzt
  b and 2 = 2 --> bit 2 ist gesetzt
  b and 4 = 4 --> bit 3 ist gesetzt
  b and 8 = 8 --> bit 4 ist gesetzt
  ....

end;