From 977e0339322aea7a4885b96aa20da33da750c127 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 10 Dec 2008 21:01:56 +0000
Subject: [PATCH] * Do not raise an error when an attempt is made to delete a
 non-existing key

git-svn-id: trunk@12326 -
---
 packages/fcl-base/src/contnrs.pp | 1 -
 1 file changed, 1 deletion(-)

diff --git a/packages/fcl-base/src/contnrs.pp b/packages/fcl-base/src/contnrs.pp
index ee98faee1d..a5f6d74d78 100644
--- a/packages/fcl-base/src/contnrs.pp
+++ b/packages/fcl-base/src/contnrs.pp
@@ -2112,7 +2112,6 @@ begin
         exit;
       end;
   end;
-  raise EKeyNotFound.CreateFmt(KeyNotFoundMsg, ['Delete', aKey]);
 end;
 
 function TFPCustomHashTable.IsEmpty: boolean;