Delphi IEEE 754 实现

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;