Double aus Bytes erstellen

[Dawn87]

Hallo,

ich habe ein Array mit 8 Byte, wie kann ich diese in einen Double verwandeln? Dieser Double wurde voher auf einem Mikrocontroller auseinandergenommen um in über die serielle Schnittstelle übertragen zu können.

Grüße
Stefan

[sniper_w]

Delphi-Quellcode:

var
  ar: array[0..7]of Byte;
  db: PDouble;
  myDouble: Double;
begin
  db := PDouble(@ar[0]);
  myDouble := db^;
end;

oder über "unions" in c style

Delphi-Quellcode:

type TMultiType = packed record
  case Boolean of
  true: (as_array: array[0..7]of Byte);
  false: (as_double: Double);
end;

[Dawn87]

Danke! Funktioniert

Grüße
Stefan