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

+ Fixed issue #7289, thanks to patch from submitter

git-svn-id: trunk@4470 -
michael 19 жил өмнө
parent
commit
89bd32698c
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      fcl/inc/contnrs.pp

+ 1 - 1
fcl/inc/contnrs.pp

@@ -597,8 +597,8 @@ end;
 
 destructor TComponentList.Destroy;
 begin
-  FNotifier.Free;
   inherited;
+  FreeAndNil(FNotifier);
 end;
 
 Function TComponentList.Extract(Item: TComponent): TComponent;