一个简便的16进制字符串转浮点的方法。
function MakeDouble(str: string): Single;
var i:Integer;
ps:PSingle;
begin
i:=StrToInt('$'+str);
ps:=@i;
Result:=ps^;
end;