Question

最近我发现奇怪的事情：

的结果

var
  d: double;
begin
  d := StrToFloat('-1.79E308');

与字符串值＆＃39; -1.79E308＆＃39;不同由ASE和SQL Server通过

转换为float字段类型

INSERT INTO my_table (my_float_field) VALUES (-1.79E308)

对于Delphi，内存转储是9A BB AD 58 F1 DC EF FF
对于选择中的数据包中的ASE / SQL Server值为99 BB AD 58 F1 DC EF FF。

谁错了，无论是服务器还是Delphi？

Answer 1

我们正在努力的前提是StrToFloat产生与提供的十进制值最接近的可表示二进制浮点值。

您出现的两个十六进制值是相邻的。您可以看到它们在有效数字中的差异为1。下面是一些解码这两个值的Python代码：

>>> import struct
>>> struct.unpack('!d', 'ffefdcf158adbb9a'.decode('hex'))[0]
-1.7900000000000002e+308
>>> struct.unpack('!d', 'ffefdcf158adbb99'.decode('hex'))[0]
-1.79e+308

请记住，Python使用最短的可能值来打印浮点值，其中最接近的可表示值是实际值。那个ffefdcf158adbb99解码为Python眼中打印为-1.79e+308的值，足以证明ffefdcf158adbb99是最接近的可表示值。换句话说，Delphi代码给出了错误的答案。

而且，出于好奇，反方向：

>>> hex(struct.unpack('<Q', struct.pack('<d', float('-1.79e308')))[0])
'0xffefdcf158adbb99L'

值得注意的是，32位Delphi编译器产生ffefdcf158adbb99，但64位Delphi编译器产生ffefdcf158adbb9a。这是一个明显的缺陷，应该作为错误报告提交给Quality Portal。

StrToFloat和谁错了：Delphi或ASE / SQL Server

1 个答案: