From 011897142c1280d92742c195b5024bd9c45c866c Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Sun, 5 Sep 2004 13:48:19 +0000
Subject: [PATCH] Fixed: Exists implementation failed for different keys with
 the same hash value

---
 X2UtHashes.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/X2UtHashes.pas b/X2UtHashes.pas
index 8a7898d..f4f1fde 100644
--- a/X2UtHashes.pas
+++ b/X2UtHashes.pas
@@ -415,8 +415,11 @@ begin
 end;
 
 function TX2CustomHash.Exists;
+var
+  pNode:        PX2BTreeNode;
+
 begin
-  Result  := inherited Exists(Hash(AKey), ASetCursor);
+  Result  := Assigned(LookupItem(AKey, pNode, False, ASetCursor));
 end;