Cardinal in Bytes speichern

[Neutral General]

Zitat von xZise:

Wie stellst du dir das vor?

Naja so:

Delphi-Quellcode:

type
  TFoo = packed record
    case Integer of
      0: (arr: array[0..5] of Byte);
      1: (
           dummy1: Word;
           Wert: Cardinal;
         );
  end;

var foo: TFoo;
    i: Integer;
begin
  // foo füllen
  for i:= 0 to 5 do
    foo.arr[i] := random(256); // ka.. deine daten halt
  // Du willst jetzt nur den Errorcode?
  // ==>
  // Der steht in foot.Wert:
  Send(foo.Wert);
end;

Oder eben umgekehrt. In den Cardinal schreiben und die Bytes auslesen. Die 6 Bytes und der 1. Word + der Cardinal belegen den gleichen Speicher:

Code:

-----------------------------------------------------
| Byte1 | Byte2 | Byte3 | Byte4 | | Byte5 | | Byte6 |
------------------------------------------------------
|    dummy1     |       W      e      r      t      |
------------------------------------------------------

[x000x]

Moin moin,

eine weitere Möglichkeit wäre noch der Weg über Pointer:

Delphi-Quellcode:

//...
var
   Arr  : Array[0..5] of Byte;
   P    : PCardinal;
   Wert : Cardinal;
begin
   Wert := 4294967295;
   //Cardinal in Array scheiben
   P := @Arr[2];
   P^:= Wert;
   // und wieder auslesen
   // Little Endian
   //WertNeu := (Arr[5] shl 24) or (Arr[4] shl 16) or (Arr[3] shl 8) or Arr[2];
   xxx := PCardinal(@Arr[2])^;
//...

//...
   // bzw gleich so
   PCardinal(@Arr[2])^ := 4294967295;
   // und auslesen halt wieder
   xxx := PCardinal(@Arr[2])^;

[xZise]

Zitat von x000x:

Moin moin,

eine weitere Möglichkeit wäre noch der Weg über Pointer:

Delphi-Quellcode:

//...
var
   Arr  : Array[0..5] of Byte;
   P    : PCardinal;
   Wert : Cardinal;
begin
   Wert := 4294967295;
   //Cardinal in Array scheiben
   P := @Arr[2];
   P^:= Wert;
   // und wieder auslesen
   // Little Endian
   //WertNeu := (Arr[5] shl 24) or (Arr[4] shl 16) or (Arr[3] shl 8) or Arr[2];
   xxx := PCardinal(@Arr[2])^;
//...

//...
   // bzw gleich so
   PCardinal(@Arr[2])^ := 4294967295;
   // und auslesen halt wieder
   xxx := PCardinal(@Arr[2])^;

An sowas dachte ich halt Ich schreibe mal eine Demoapplikation.

MfG
xZise

[Cyf]

Zitat von Hawkeye219:

Hallo,

ohne das Schlüsselwort "packed" könnte die Lösung mit dem varianten Record aber ins Auge gehen...

Gruß Hawkeye

Wird das eigentlich von Delphi noch unterstüzt? Hab da was im Kopf, aber kann möglicherweise zu einem ganz anderen Thema gewesen sein.

[x000x]

Moin moin,

wie gesagt, dass war nur eine weitere Möglichkeit. Ich persönlich würde die Variante von jfheins
auch bevorzugen.

[Cyf]

Habs grad mal getestet, scheint noch zu funktionieren, entschuldigt die unnötige Verwirrung

Delphi-Quellcode:

  TA = record
    AByte: Byte;
    BInt: Integer;
  end;
  TB = packed record
    AByte: Byte;
    BInt: Integer;
  end;

TA: 8 Bytes
TB: 5 Bytes