Поиск и путь к узлу

Code:

// 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;

Code:

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;