paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: remove redundant checks from TTreeFilterBranch.FreeNodeData.

Browse Source 
git-svn-id: trunk@46108 -
This commit is contained in:
juha 2014-09-02 21:35:18 +00:00
parent 3208bdffe6
commit c5e69a4a97
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazcontrols/treefilteredit.pas
View File

@ -330,14 +330,13 @@ procedure TTreeFilterBranch.FreeNodeData(ANode : TTreeNode);
Var
AObject : TObject;
Begin
AObject := NIL;
If Assigned(ANode) And Assigned(ANode.Data) Then Begin
AObject := TObject(ANode.Data);
If Assigned(AObject) And AObject.InheritsFrom(TTFENodeData) Then Begin
If AObject.InheritsFrom(TTFENodeData) Then Begin
TTFENodeData(AObject).Node := NIL;
TTFENodeData(AObject).Branch := NIL;
end;
If Assigned(AObject) And (AObject is TFileNameItem) Then
If AObject is TFileNameItem Then
AObject.Free;
ANode.Data := NIL;
end;