Pārlūkot izejas kodu

+ Fixed issue #7289, thanks to patch from submitter

git-svn-id: trunk@4470 -
michael 19 gadi atpakaļ
vecāks
revīzija
89bd32698c
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  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;