mehrere Datentypen aus byte array erzeugen

[Mavarik]

Vielleicht verstehe ich die Frage nicht...

Du hast ein Array woher auch immer darin sind Daten...

Gehen wir mal davon aus, dass die Datentypen in Codierung und große gleich sind...

Dann nimm einfach einen Record und move die rein?

order per Absolute...

Delphi-Quellcode:

var
  Buffer     : array [0...Sizeof(MyRecord)-1] of byte;
  Datensatz  : MyRecord absolute Buffer;

oder einfach

Move(Buffer[0]^,Datensatz,Sizeof(DatenSatz)) Oder ich habe es doch nicht verstanden...

[MikeRohsoft]

beim nächsten mal probiere ich sowas offensichtliches aus, tut mir leid, läuft exzellent. Vielen Dank

Delphi-Quellcode:

type
  T2Floats = record
    Float1, Float2: single;
  end;
var
  MyBuffer: array[0..7] of byte = (0, 0, $A4, $43, 0, 0, $A4, $43);
  MyRecord: T2Floats absolute MyBuffer;
begin
  Writeln(FloatToStr(MyRecord.Float1), ' ', FloatToStr(MyRecord.Float2));
  Readln();
end.

[MikeRohsoft]

Ich hatte heute mal versucht das umzusetzen und das habe ich teilweise auch Erfolgreich getan,
dabei musste ich feststellen dass ich jedes byte Array um 4 bytes weniger lesen muss damit es funktioniert.
Nur das "wieso?" leuchtet mir nicht ganz ein, kann vielleicht nochmal jemand helfen? rein Verständnishalber?

Code:

class CNavigation
{
public:
   char pad_0[0x20];
   Vector4 Rotation;
   char pad_1[0x20];
   Vector3 Position;

};

Delphi-Quellcode:

  TVector3 = record
    X, Y, Z: single;
  end;

  TVector4 = record
    X, Y, Z, W: single;
  end;

  TNavigation = record
    pad_0: array[0..$1C] of char;  // 20
    Rotation: TVector4;
    pad_1: array[0..$1C] of char;  // 20
    Position: TVector3;
  end;

[Klaus01]

.. und wenn Du mt packed records arbeitest?

Grüße
Klaus

[Mavarik]

Zitat von Klaus01:

.. und wenn Du mt packed records arbeitest?

Grüße
Klaus

oder mit {$A1}

[Fritzew]

zuerst mal ist deine convertierung c delphi falsch
0x20 ist 32 decimal
Also müsstest du das entweder

Delphi-Quellcode:

pad_0: array[0..31] of char; // 32 einträge
//Oder
pad_0: array[0..$1F] of char; // 32 einträge

Übersetzen

[MikeRohsoft]

passt, habt vielen dank ihr beiden

Delphi-Quellcode:

  TNavigation = packed record
    pad_0: array[0..$1F] of byte;  // 20
    Rotation: TVector4;
    pad_1: array[0..$1F] of byte;  // 20
    Position: TVector3;
  end;