6

对于一个 Delphi 项目（使用 RAD Studio XE7 构建），我想创建一个画笔字典。每个字典项都包含一个 TMyBrush 对象作为键，描述要检索的画笔，以及一个 GDI+ 画笔作为值。

TMyBrush 类包含 3 个字段

  • 确定画笔种类的枚举类型（实心、渐变、...）
  • 一个 TBrushInfo 类，用于描述画笔内容（颜色、环绕模式……）
  • 表示钳位字段的 TRect

在我的字典中，我想根据他的特征而不是他的实例来检索画笔。例如，我想通过创建本地 TMyBrush 实例，将其配置为黑色实心，并使用 TryGetValue() 函数获取匹配的 GDI+ 值，从我的字典中获取黑色实心画笔。为此，我创建了一个 TMyBrushComparer。

编写 Equals() 函数对我来说不是问题。但是我不知道编写 GetHashCode() 函数的最佳做法是什么。我倾向于编写这样的函数：

function TMyBrushComparer.GetHashCode(const pValue: TMyBrush): Integer;
begin
    Result := BobJenkinsHash(pValue, SizeOf(TMyBrush), 0);
end;

但是我觉得这不是一个很好的做法，对吗？那么，为我的 TMyBrushComparer 编写一个好的 GetHashCode() 函数的最佳实践是什么？

问候

4

1 回答 1

5

问题中的代码散列对象的地址而不是其值，因此与您对相等性的定义不一致。

您对相等的定义是三个字段相等。您的哈希函数应该与该定义匹配。散列三个字段中的每一个，并组合值，例如使用此处概述的方法：https ://stackoverflow.com/a/263416/505088

您的两个字段是值类型。它们很容易散列以匹配值标识。画笔信息字段似乎是参考类型。因此，您需要再次确定您想要哪种形式的身份（引用身份、值身份或其他东西），然后实施匹配相等性测试和哈希。

于 2016-12-10T15:19:16.607 回答