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;
转载于:https://www.cnblogs.com/codespace/p/9646268.html