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

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;

Code:

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; {IF}

    Node:=Node.GetNextSibling;

   End; {While}

  { или если в другой ветви }

End else For t:=0 to Node.Count - 1 Do IF Node[t].Text = S then

Begin

  Result:=Node[t];

  Break;

End; {else}

End;

Code:

for i := 0 to pred(MyTreeView.Items.Count) do

begin

if MyTreeView.Items[i].Text = 'Банзай' then

   break;

end;

Code:

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;