TDictionary的 Equals 和 GetHashCode

Question

如果我实现一个关系 Car <->在Delphi中使用TDictionary的所有者，我应该如何实现IEqualityComparer的Equals和GetHashCode函数？ （GetHashCode 返回一个 Integer，用于 TDictionary 中的散列。）

对于 TVehicle 类，假设它有一个 VIN（车辆识别号）。

我应该如何实现VIN的哈希码？

更新：在这个例子中，对象标识并不意味着“两个对象指针的内存位置的标识”，而是“同一对象的两个实例的标识” ，基于其属性的独特且不变（“不可变”）组合。

因此，我不需要通过地图中的内存地址来搜索车辆，而是需要具有我要查找的 ID 的车辆。

想象一个包含车主数据的数据库，在应用程序启动时加载到字典中。现在，如果用户在申请表中输入 VIN，应用程序如何在字典中找到车辆？如果代码使用 VehicleFactory.CreateVehicleFromDatabase(Edit1.Text); 创建一个新实例并在字典中搜索此对象，则 Equals 的默认实现将不会在映射中找到任何条目，因为它看起来为内存地址。为了找到车辆，Equals 需要比较 VIN。

所以我必须创建一个自定义 IEqualityComparer。实现 Equals 很简单。但是 GetHashCode 呢？对于字符串属性，我不能简单地使用字符串的地址（请参阅 中的 Berry Kelly Delphi 字符串是不可变的吗？：“如果从两个独立的代码部分创建相同的字符串，它们将不会共享相同的后备存储”），因此字符串属性的 GetHashCode 函数需要自定义实现。

我还发现我发现了问题 How do I hash a string with Delphi? - 有一个包含 HashValue('Hello World') 的示例

Answer 1

您似乎被误导了，认为 Delphi 字符串没有默认的哈希代码实现。

事实并非如此。当您创建一个以字符串值作为键的 TDictionary 时，将根据字符串的内容计算哈希值。如果 Value 是一个字符串变量，那么代码如下所示：

BobJenkinsHash(Value[1], Length(Value) * SizeOf(Value[1]), 0);

我认为这回答了您关于字符串散列的问题的部分。

---

对其他答案的评论以及我已删除的评论是关于您正在考虑的设计问题的有趣讨论。我仍然对您的信念表示怀疑，即正确的解决方案是允许 TVehicle 实例和 VIN 之间存在多对一关系。

您已确认您不得拥有多个具有相同 VIN 但数据不同的 TVehicle 实例。在我看来，实现这一目标的最佳方法是确保 TVehicle 实例和 VIN 之间存在一对一的关系。

这种一对一的关系很容易实现。您需要将 TVehicle 实例的实例化设为工厂类的私有函数。该工厂类保存一个包含现有车辆实例的字典，TDictionary。如果您需要获得车辆，请向工厂索要。它返回位于其字典中的现有字典，或者合成一个新字典。

毫无疑问，还有许多其他方法可以实现此效果，但我强烈建议您考虑一种方法，使每个 VIN 仅生成一个车辆实例。

Answer 2

如果可能的话，我会在这个问题上运用 KISS 原则。如果您的实际密钥是 ID 而不是车辆本身，那么为什么不使用 TDictionary 而不是 TDictionary 呢？那么您就不必担心自定义比较器。

Answer 3

当您被告知设计中的气味和其他事情时，我将回答您的问题，因为创建对象键控字典并基于与键的内存地址不同的任何内容进行比较是有效的：

您可以创建一个新的比较器在 TDictionary 创建时。

例如：

type
  TVehicleOwner = class (TDictionary<TVehicle, TOwner>)
  end;

//other code here

procedure TForm2.Button1Click(Sender: TObject);
var
  VehOwner: TVehOwner;
begin
  VehOwner := TVehOwner.Create(TEqualityComparer<TVehicle>.Construct(
    //comparer
    function(const Left, Right: TVehicle): Boolean
    begin
      { Make a case insensitive comparison }
      Result := CompareText(Left.FID, Right.FID) = 0;
    end,
    //hasher
    function(const Value: TVehicle): Integer
    begin
      { Generate a hash code. }
      Result := TheHashAlgorythmOfYourChoice(Value.FID);
    end)
  );

  //more code here

这就是说，如果你有两个代表同一个对象的实例，我认为你的代码中有一个缺陷。如果您有一辆内存中 ID 为“ABC”的 TVehicle，对于我来说，这应该是该车辆的唯一实例，并且您必须提供某种方法来为所有代码获取相同的实例。这样，您可以使用 Dictionary 类，而无需编写自定义比较器，但更重要的是，您知道您一直在使用同一个对象，并且您的应用程序状态将与代码、UI 或其他界面中的任何内容保持一致。 。