Einzelnen Beitrag anzeigen

Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#12

Re: Cardinal in Bytes speichern

  Alt 27. Okt 2008, 23:40
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])^;
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat