Pārlūkot izejas kodu

* Fix bug #33516

git-svn-id: trunk@38627 -
michael 7 gadi atpakaļ
vecāks
revīzija
31a354a3bc
1 mainītis faili ar 2 papildinājumiem un 1 dzēšanām
  1. 2 1
      rtl/objpas/classes/collect.inc

+ 2 - 1
rtl/objpas/classes/collect.inc

@@ -304,7 +304,8 @@ destructor TCollection.Destroy;
 begin
   FUpdateCount:=1; // Prevent OnChange
   try
-    DoClear;
+    if Assigned(FItems) then
+      DoClear;
   Finally
     FUpdateCount:=0;
   end;