Быстрый поиск узла в TreeView

← →
learner © (2006-07-31 10:51) [0]

Здравствуйте !
В DelphiWorld, при поиске узла в TreeView рекомендуют
не искать по индексу,
function ItemByIndex(TrView: TTreeView): TTreeNode; var i:integer; begin for i := 0 to TrView.Items.Count - 1 do if TrView.Items[i].Text = "bala - bala" then begin Result:=TrView.Items[i]; break; end; end;а искать, используя GetNext
function NodeSearchRec(const Node: TTreeNode): TTreeNode; var TmpNode: TTreeNode; begin if Node <> nil then if Node.text = "bala - bala" then Result:=Node else NodeSearchRec(Node.GetNext); end; procedure ItemByNode(TrView: TTreeView); var Node: TTreeNode; begin Node:=NodeSearchRec(TrView.Items[0]); end;Утверждают, что второй вариант гораздо быстрее.
Сколько я не проверяла, скорость одна и та же.
Может я что-то не так делаю ?
Как лучше всего искать нужный узел ?

← →
Ega23 © (2006-07-31 10:54) [1]

> Сколько я не проверяла, скорость одна и та же.

На каких объёмах проверяла?

← →
learner © (2006-07-31 11:02) [2]

>На каких объёмах проверяла?
1500 узлов в дереве
каждую поцедуру вызывала в цикле от 0 до 100

← →
Stakan © (2006-07-31 11:17) [3]

learner © (31.07.06 11:02) [2]
Непонятно зачем рекурсия во втором варианте, и зачем тогда временная переменная.
Попробуй просто
TmpNode := Node; while TmpNode <> nil do if TmpNode.Text = "bala - bala" then begin Result := TmpNode; Exit; end else TmpNode := TmpNode.GetNext;

← →
learner © (2006-07-31 11:37) [4]

>[3] Stakan © (31.07.06 11:17)
Я сначала пробовала без рекурсии и, не увидев выиграша в скорости,
решила попробовать убрать "лишнее присвоение".

learner © (31.07.06 11:37) [4]
Посмотрел код TTreeNodes.GetNodeFromIndex(D6) и увидел, что при последовательном переборе действительно разница невелика.

Спасибо всем. Успокоили :))

Быстрый поиск узла в TreeView Найти похожие ветки