Record füllen aus Byte Array

[himitsu]

Bietet die Komponente auch etwas anderes, außer .GetChar, womit man einen ganzen Block auslesen kann?
Wenn ja, dann kannst du damit die Daten direkt in den Record reinladen.


Ein statisches Array von gleicher Größe > kann direkt in den Record gekastet werden.

Da ein dynamisches Array intern schon aus einem "Zeiger" besteht, welcher auf das erste Datenfeld zeigt, könnte man auch hier direkt in den Zeigertyp casten.
(die Steuerdaten des Arrays liegen auf "negativen" Adressen vor den Felddaten)

Delphi-Quellcode:

type
  PRec = ^TRec;
  TRec = record
    i1, i2, i3: Integer;
  end;
var
  SArr: array[0..11] of Byte;
  DArr: array of Byte;

// direkter Cast
TRec(SArr).i1 := 1;  // 1
PRec(@SArr).i2 := 2;  // 2 mit autom. Dereferenzierung
PRec(@SArr)^.i3 := 3;  // 2
PRec(@SArr[0]).i2 := 2;  // 3 mit autom. Dereferenzierung
PRec(@SArr[0])^.i3 := 3;  // 3 

SetLength(DArr, 8);
PRec(DArr).i1 := 1;  // 1 mit autom. Dereferenzierung
PRec(DArr)^.i1 := 1;  // 1
PRec(@DArr[0]).i2 := 2;  // 3 mit autom. Dereferenzierung
PRec(@DArr[0])^.i3 := 3;  // 3

1 = direkter Cast
2 = da hier intern kein Zeiger vorliegt, könnte man auch ohne Referenzierung eines Feldes vorgehn
3 = erst ein Feld referenzieren, dann einen Zeiger auf dieses Feld erstellen und danach die Zeigertypen untereinander casten

Die dereferenzierung "^" muß in Delphi nicht unbedingt grmacht werden, denn wenn Delphi (bei FreePascal ist das anders) folgend auf einen Zeigertypen einen "." findet, dann dereferenziert es diesen automatisch.