2
0
Эх сурвалжийг харах

* Fix freeing wrong list. Fixes issue #41530

Michaël Van Canneyt 1 долоо хоног өмнө
parent
commit
4284e61fcc

+ 1 - 1
rtl/objpas/classes/compon.inc

@@ -512,7 +512,7 @@ end;
 Destructor TComponent.Destroy;
 begin
   Destroying;
-  FreeAndNil(FObservers);
+  FreeAndNil(FDObservers);
   RemoveFreeNotifications;
   DestroyComponents;
   If FOwner<>Nil Then FOwner.RemoveComponent(Self);