Bläddra i källkod

* Fix freeing wrong list. Fixes issue #41530

Michaël Van Canneyt 1 vecka sedan
förälder
incheckning
4284e61fcc
1 ändrade filer med 1 tillägg och 1 borttagningar
  1. 1 1
      rtl/objpas/classes/compon.inc

+ 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);