* fix for 10865

git-svn-id: trunk@10543 -
2025-04-19 13:59:29 +02:00 · 2008-03-23 18:34:26 +00:00 · 2008-03-23 18:34:26 +00:00 · 6305d7d5a3
commit 6305d7d5a3
parent f262aff7ef
1 changed files with 1 additions and 0 deletions
--- a/packages/fcl-base/src/contnrs.pp
+++ b/packages/fcl-base/src/contnrs.pp
@ -1280,6 +1280,7 @@ begin
      FHashList := nil;
    end;
  SetHashCapacity(1);
+  FHashTable^[0]:=longword(-1); // sethashcapacity does not always call rehash
  if Assigned(FStrs) then
    begin
      FStrCount:=0;