delphi - 使用 TTime 作为 TDictionary 的键

Question

我想使用 TTime 作为 TDictionary 的键，但我遇到了 TTime 比较的问题，因此我正在寻找替代方案。

我的特殊问题是，我正在尝试构建某种带有时间的议程，用 TTime 对象表示，并将它们存储在 TDictionary 中沿着他们的顶部坐标。给定我想要在网格上绘制的任务的时间，我可以根据任务的时间轻松地从字典中检索其顶部坐标。不幸的是，它不起作用，因为 TTime comparisons give unexpected results 。我无法使用 TTime 从字典中可靠地检索坐标。

• 您将如何解决这个问题？
• 您会完全跳过 TDictionary 并采用另一种方法吗？

Answer 1

TDictionary构造函数接受 IEqualityComparer<TKey>参数，它将用于比较键值。为 TTime 实现该接口(interface)(通过继承 TEqualityComparer )并使用 SameTime 进行比较。