From 333a3192c5401d05cfad252b07b4e11e5e851fc0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 29 Mar 2011 09:05:55 +0000
Subject: [PATCH] IDE: fixed mem leak

git-svn-id: trunk@30067 -
---
 ide/projectinspector.pas | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/ide/projectinspector.pas b/ide/projectinspector.pas
index 43cc89ec4c..05d9debe29 100644
--- a/ide/projectinspector.pas
+++ b/ide/projectinspector.pas
@@ -689,6 +689,7 @@ begin
   TVNodeStack:=TFPList.Create;
   ExpandedState:=TTreeNodeExpandedState.Create(ItemsTreeView);
   try
+    FreeTVNodeData(FFilesNode);
     if LazProject<>nil then begin
       // collect and sort files
       CurFile:=LazProject.FirstPartOfProject;
@@ -708,7 +709,6 @@ begin
       //debugln(['TProjectInspectorForm.UpdateFiles filtered=',Files.Count,' of ',LazProject.FileCount,' Filter="',Filter,'" Hierachy=',ShowDirectoryHierarchy,' SortAlpha=',SortAlphabetically]);
 
       // update treeview nodes
-      FreeTVNodeData(FFilesNode);
       if Files.Count=0 then
         FFilesNode.DeleteChildren
       else begin
@@ -981,15 +981,12 @@ begin
       ANode:=ItemsTreeView.Items.GetFirstNode
     else
       ANode:=ANode.GetFirstChild;
-    while (ANode<>nil) and (ANode.Text<>CurText) do
-      ANode:=ANode.GetNextSibling;
+    while ANode.Text<>CurText do ANode:=ANode.GetNextSibling;
     if ANode=nil then break;
     ASelection.Delete(0);
   end;
-  if ANode<>nil then
-    ItemsTreeView.Selected:=ANode;
-  if FreeList then
-    ASelection.Free;
+  if ANode<>nil then ItemsTreeView.Selected:=ANode;
+  if FreeList then ASelection.Free;
 end;
 
 constructor TProjectInspectorForm.Create(TheOwner: TComponent);