delphi 16进制转10进制 IEEE 754浮点数

delphi 16进制 IEEE 754

type

PSingle = ^Single;

Function HexToFloat(HexStr : string):single;

var

Data: array[1..3] of Byte;

i : byte;

begin

for i:=1 to 4 do

begin

Data[i] := StrToInt('$'+ copy(HexStr,7-(i-1)*2,2));

end;

Result := PSingle(@Data)^;

end;