lazcontrols: TTreeFilterBranch.RemoveChildrenData: fixed crash when passing nil

git-svn-id: trunk@43355 -
This commit is contained in:
mattias 2013-11-03 08:34:11 +00:00
parent de89e7cd72
commit 1ae4a6b361

View File

@ -359,6 +359,7 @@ procedure TTreeFilterBranch.RemoveChildrenData(ARootNode : TTreeNode);
end;
Begin
if ARootNode=nil then exit;
ProcessSubNodes(ARootNode);
end;