Искать узел TTreeView через его свойство Text

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// Search a TreeItem through its Text property 
// Return value is a TreeNodeObject 
// TreeItem uber die TextEigenschaft  suchen 
// Der Ruckgabewert der Function ist ein 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 
//  Beispiel: Sucht in TreeView1 das 
//  Item mit der Beschriftung  >Wasserfall< u. selectiert es; 
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;

Далее: Как реализовать Drag and Drop в TTreeView »»