paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 10:09:51 +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; function TTreeFilterEdit.GetBranch(ARootNode: TTreeNode): TBranch;
// Get a new or existing branch for a node. // Get a new or existing branch for a node.
var var
branch: TBranch;
i: Integer; i: Integer;
begin begin
if not Assigned(fBranches) then if not Assigned(fBranches) then
fBranches := TBranchList.Create; fBranches := TBranchList.Create;
branch := Nil; Result := Nil;
for i := 0 to fBranches.Count-1 do for i := 0 to fBranches.Count-1 do
if fBranches[i].fRootNode = ARootNode then begin if fBranches[i].fRootNode = ARootNode then begin
branch := fBranches[i]; Result := fBranches[i];
branch.fOriginalData.Clear; Result.fOriginalData.Clear;
Break; Break;
end; end;
if branch = Nil then begin if Result = Nil then begin
branch := TBranch.Create(Self, ARootNode); Result := TBranch.Create(Self, ARootNode);
fBranches.Add(branch); fBranches.Add(Result);
end; end;
Result := branch;
end; end;
procedure TTreeFilterEdit.MoveNext; procedure TTreeFilterEdit.MoveNext;