Delphi-Help

Главная Статьи Дерево (TreeView) Как реализовать быстрый поиск в TTreeView?

Как реализовать быстрый поиск в TTreeView?

Оцените материал
(1 Голосовать)


Как реализовать быстрый поиск в TTreeView?

uses

..., ComCtrls;

procedure QuickSearch( Tree: TTreeView; SearchTarget: string );
var
  Noddy: TTreeNode;
  Searching: boolean;
begin
   Noddy := Tree.Items[0];
   Searching := true;
   while ( Searching ) and ( Noddy <> nil ) do
   begin
      if Noddy.Text = SearchTarget then
      begin
         Searching := false;
         Tree.Selected := Noddy;
         Tree.SetFocus;
      end
      else
         Noddy := Noddy.GetNext;
   end;
end;

 

procedure TForm1.Button1Click(Sender: TObject);
begin
   QuickSearch( TreeView1, 'текст для поиска' );
end;

Авторизация



Счетчики