TBytesStream - mehrere Bytes lesen und vergleichen

[LTE5]

3 bytes lesen ist bei mir gerade so

Delphi-Quellcode:

Stream.Bytes[0]
Stream.Bytes[1]
Stream.Bytes[2]

Geht das auch einfacher, mit nur einer Zeile? Sodass ich am Ende mit etwas vergleichen kann?

Habs schon herausgefunden. Stream.ReadData.

[Rollo62]

Vielleihct hilft dir das als Anregung oder das hier ?
Ist in deinem Fall aber womöglich zu komplex.
Wenn es immer nur 3 Byte sind kann man das ja entsprechend zurückschrauben und optimieren.

Rollo

[himitsu]

Nja, es gibt eigentlich keinen 3-Byte-Typ.
1, 2, 4, 8, 10 (offiziell nur für interne Berechnung, der Extended), 12, 16, 32

Aber du kannst z.B. zwei Integer (LongWord) nehmen, vorher auf 0 setzen und dann jeweils nur 3 Byte überschreiben.
Vergleichen lässt sich sowas dann ohne große Probleme. (if i1 = i2 then )

Oder TBytes mit SetLength(3) oder ein statisches array[0..2] of Byte und dann CompareMemory/CompareMem.
Bzw. in "aktuellen" Delphis gibt es auch string-like Operationen ala a = b für dynamische Arrays.