Поиск в TreeView по тексту

=== Поиск в TreeView по тексту ===
// Search a TreeItem through its Text property
// Return value is a TreeNodeObject
function Form1.TreeItemSearch(TV: TTreeView; SucheItem: string): TTreeNode;
var
 i: Integer;
 iItem: string;
begin
 if (TV = nil) or (SucheItem = ) then Exit;
 for i := 0 to TV.Items.Count - 1 do 
 begin
 iItem := TV.Items[i].Text;
 if SucheItem = iItem then 
 begin
 Result := TV.Items[i];
 Exit;
 end 
 else 
 begin
 Result := nil;
 end;
 end;
end;
Example: Search for Wasserfall in TreeView1 and select item
procedure TForm1.Button1Click(Sender: TObject);
var
 Node: TTreeNode;
begin
 // either - entweder so
 Node := TreeItemSuchen(TreeView1, 'Wasserfall');
 TreeView1.Selected := Node;
 // or - oder so
 TreeView1.Selected := TreeItemSuchen(TreeView1, 'Wasserfall ');
end;
Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 00631
----
function FindNode(Tree: TTreeView; Node: TTreeNode; S: String): TTreeNode;
var
 t: Integer;
begin
 Result := nil;
 { Если поиск идёт в корне }
 if not Assigned(Node) then
 begin
 Node := Tree.Items.GetFirstNode;
 while Assigned(Node) do
 begin
 if Node.Text = S then
 begin
 Result := Node;
 Break;
 end;
 Node := Node.GetNextSibling;
 end;
 { или если в другой ветви }
 end
 else
 begin
 for t := 0 to Node.Count - 1 do
 begin
 if Node[t].Text = S then
 begin
 Result := Node[t];
 Break;
 end;
 end;
 end;
end;
Author: Song
Source: Взято из http://forum.sources.ru
ID: 00632
----
Небольшие хитрости для работы с узлами TreeView: 
Если вы хотите производить поиск по дереву, может быть для того, чтобы найти узел, соответствующий определенному критерию, то НЕ ДЕЛАЙТЕ ЭТО ТАКИМ ОБРАЗОМ:
for i := 0 to Pred(MyTreeView.Items.Count) do
begin
 if MyTreeView.Items[i].Text = 'Банзай' then
 break;
end;
...если вам не дорого время обработки массива узлов. 
Значительно быстрее будет так:
Noddy := MyTreeView.Items[0];
Searching := true;
while (Searching) and (Noddy <> nil) do
begin
 if Noddy.text = SearchTarget then
 begin
 Searching := False;
 MyTreeView.Selected := Noddy;
 MyTreeView.SetFocus;
 end
 else
 begin
 Noddy := Noddy.GetNext
 end;
end;
В моей системе приведенный выше код показал скорость 33 милисекунды при работе с деревом, имеющим 171 узел. Первый поиск потребовал 2.15 секунд. 
Оказывается, процесс индексирования очень медленный. Я подозреваю, что при каждой индексации свойства Items, вы осуществляете линейный поиск, но это нигде не засвидетельствовано, поэтому я могу ошибаться. 
Вам действительно не нужно просматривать все дерево, чтобы найти что вам нужно - получить таким образом доступ к MyTreeView.Items[170] займет много больше времени, чем получения доступа к MyTreeView.Items[1]. 
Как правило, для отслеживания позиции в дереве TreeView, нужно использовать временную переменную TTreeNode, а не использовать целочисленные индексы. Возможно, свойство ItemId как раз и необходимо для такого применения, но, к сожалению, я никак не могу понять абзац в электронной документации, касающийся данного свойства:
 "Свойство ItemId является дескриптором TTreeNode типа HTreeItem 
 и однозначно идентифицирует каждый элемент дерева. Используйте
 это свойство, если вам необходимо получить доступ к элементам
 дерева из внешнего по отношению к TreeView элемента управления."
Source: http://delphiworld.narod.ru/
ID: 01118