Hallo,
ich konnte den Fehler inzwischen auf eine Funktion in der
Unit zurückführen:
Delphi-Quellcode:
function TDATroniC.CreateFloat(byte1, byte2, byte3, byte4: Byte): Single;
type TFloat = record
case byte of
1: (Float : Single);
2: (Byte: array [0..3] of byte); // 1 Single/Float = 4 Byte
end;
var
flt : TFloat;
begin
flt.Byte[0] := Byte(Byte4);
flt.Byte[1] := Byte(Byte3);
flt.Byte[2] := Byte(Byte2);
flt.Byte[3] := Byte(Byte1);
Result := flt.Float;
end;
Diese Funktion wandelt 4 Bytes die über eine serielle Schnittstelle (in diesem Fall USB) kommen in eine Variable vom Typ "Single" um.
Hast Du eine Idee warum das nicht klappen könnte?
Grüße
Stefan