Question

delphi接受单片机发送的浮点数，ieee754怎么转换回浮点数。

单片机实际发送浮点数组{1140.31,38.21,1130.34,28.89,1137.56,29.96 }
delphi接受到的数据

接收到的数据不是发送的数据，怎么改delphi程序，才能接收到正确的数据
delphi接受程序如下
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);

var
i:integer;
a1,b1,c1,d1:single;
begin

viewstring:='';
move(buffer^,pchar(@rbuf)^,bufferlength);
for i:=1 to bufferlength do
viewstring:=viewstring+ inttohex(rbuf[i],2)+'' ;
memo1.lines.add(viewstring);
for i:=0 to 3 do
a[i]:=rbuf[i];
for i:=4 to 7 do
b[i-4]:=rbuf[i];
for i:=8 to 11 do
c[i-8]:=rbuf[i];
for i:=12 to 15 do
d[i-12]:=rbuf[i];

a1:=psingle(@a)^;
edit1.Text:=floatTostr(a1);

b1:=psingle(@b)^;
edit2.Text:=floatTostr(b1);

c1:=psingle(@c)^;
edit3.Text:=floatTostr(c1);

d1:=psingle(@d)^;
edit4.Text:=floatTostr(d1);
memo1.lines.add('');
end;

Answer 1

我上传到这里了，分给我吧。

Answer 2

可以看我的回答里，有答案

追问

你在逗我吗。。。哪呢答案。

追答

好多人问IEE754，这是以前写的代码

使用时，引用math单元

function IEEE754DToF(const AData: DWORD): Single;
var
S, M, E: Integer;
begin
try
S:= (AData and $80000000) shr 31;
E:= (AData and $7F800000) shr 23;
M:= AData and $7FFFFF;
Result:= Power(-1, S) * (1 + M/$7FFFFF) * Power(2, E-127);
except
Result:=0;
end;
end;