delphi - 在 Delphi 中将 GetHashCode 的 double 转换为整数

Question

Delphi 2009 为 TObject 添加了 GetHashCode 函数。 GetHashCode 返回一个 Integer，用于 TDictionary 中的哈希。

如果您希望对象在 TDictionary 中正常工作，则需要适本地重写 GetHashCode，以便通常不同的对象返回不同的整数哈希代码。

但是对于包含双字段的对象该怎么办？如何将这些 double 值转换为 GetHashCode 的整数？

例如，在 Java 中通常完成的方式是使用 Double.doubleToLongBits 或 Float.floatToIntBits 等方法。后者的文档对其进行了如下描述:“根据 IEEE 754 浮点“单一格式”位布局返回指定浮点值的表示形式。”这涉及到对浮点值的不同位使用不同掩码的一些按位运算。

Delphi 中有这样做的函数吗？

Answer 1

我建议对 Gamecat 代码进行以下改进:

type
  TVarRec = record
    case Integer of
      0: ( FInt1, FInt2 : Integer; )
      1: ( FDouble : Double; )
  end;

function Convert(const ADouble: Double): Integer;
var
  arec : TVarRec;
begin
  arec.FDouble := ADouble;
  Result := arec.FInt1 xor arec.FInt2;
end;

这考虑了 Double 值的所有位。

(注释不能很好地与代码配合使用)