paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

TreeFilterEdit: minor optimization

Browse Source 
git-svn-id: trunk@34532 -
This commit is contained in:
juha 2012-01-01 15:05:00 +00:00
parent d6f03b7132
commit f1899978ae
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazcontrols/treefilteredit.pas
View File

@ -402,23 +402,21 @@ end;
function TTreeFilterEdit.GetBranch(ARootNode: TTreeNode): TBranch;
// Get a new or existing branch for a node.
var
branch: TBranch;
i: Integer;
begin
if not Assigned(fBranches) then
fBranches := TBranchList.Create;
branch := Nil;
Result := Nil;
for i := 0 to fBranches.Count-1 do
if fBranches[i].fRootNode = ARootNode then begin
branch := fBranches[i];
branch.fOriginalData.Clear;
Result := fBranches[i];
Result.fOriginalData.Clear;
Break;
end;
if branch = Nil then begin
branch := TBranch.Create(Self, ARootNode);
fBranches.Add(branch);
if Result = Nil then begin
Result := TBranch.Create(Self, ARootNode);
fBranches.Add(Result);
end;
Result := branch;
end;
procedure TTreeFilterEdit.MoveNext;