Dictionary<Vehicle, TO Person> 的 Equals 和 GetHashCode

Question

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

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

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

更新：在这个例子中，对象标识不是指“两个对象指针的内存位置的标识”，而是“同一对象的两个实例的标识，基于唯一且不变的（“不可变") 其属性的组合'。

因此，我不需要通过地图中的内存地址搜索车辆，而是需要具有我正在寻找的 id 的车辆。

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

所以我必须创建一个自定义的 IEqualityComparer。实现 Equals 是微不足道的。但是 GetHashCode 呢？对于字符串属性，我不能简单地使用字符串的地址（请参阅Are Delphi strings immutable? 中的 Berry Kelly：“如果您从两个单独的代码部分创建相同的字符串，它们将不会共享相同的后备存储”），所以字符串属性的 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);

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

---

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

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

这种一对一的关系很容易实现。您需要使 TVehicle 实例的实例化成为工厂类的私有函数。这个工厂类包含一个包含现有车辆实例的字典，TDictionary<string,TVehicle>。如果您需要获取车辆，请向工厂索取。它要么返回位于其字典中的现有字典，要么合成一个新字典。

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

Answer 2

如果可能的话，我会将 KISS 原则用于这一点。如果您的实际密钥是 ID 而不是车辆本身，那么为什么不使用 TDictionary<string, TPerson> 而不是 TDictionary<TVehicle, TPerson>？这样您就不必担心自定义比较器了。

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 或其他界面中的任何内容保持一致.