Поиск одноименных узлов TreeView1

[Афанасий[vedma]]

Привет=) я ищу узлы в TreeView1 таким образов:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    if Pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(TreeView1.Items[i].Text)) <> 0 then
    begin
      TreeView1.Selected := TreeView1.Items[i];
      TreeView1.SetFocus;
      Edit1.Text := '';
      break;
    end;
end;

ищет хорошо, НО! я в Edit пишу слово "Intel" и первое слово находит, а в TreeView1 разбросаны много таких слов. Как сделать так чтоб при каждом нажатии находил все "Intel"?

[Аватар]

Нашли вы первое вхождение слова, сделали найденный узел текущим, распахнув его, если он был скрыт. Как вы себе представляете поиск сразу всех? Распахнуть их можно, но текущим сделаете только один. Что вы визуально увидите для достаточно большого дерева? И толку с такого поиска. Лучше уж поиск следующего делать.

[vovk]

Как вариант при нахождении не ставить на узел фокус, а сбрасывать информацию в листбокс както так

 ListBox1.Items.AddObject(TreeView1.Items[i].Text +' '+inttostr( TreeView1.Items[1].Level) (ну или какуюто другую информацию о узле),TObject(TreeView1.Items[i]));

поиск естественно вести "до упора"

а потом при клике в листбоксе ставить фокус на этот узел
примерно так

TreeView1.Selected := (ListBox1.Items.Objects[ListBox1.ItemIndex] as TTreeNode);
      TreeView1.SetFocus;

[Афанасий[vedma]]

не все узлы - надо одноименные узлы по одиночке, т.е. при каждом клике

[Аватар]

Так это и есть поиск следующего. Просто при переборе узлов перебирать индекс не с нуля, а с индекса следущего узла от последнего найденного или плясать от следующего за текущим узлом

[Афанасий[vedma]]

А как реализовать поиск следующего слова? Я пытался что-то писать но не вышло

[vovk]

procedure TForm1.Button4Click(Sender: TObject);
var
  i, y: integer;
begin
   if TreeView1.Selected = nil then
   y:=0 else
   y:=  TreeView1.Selected.AbsoluteIndex+1;
  for i := y to TreeView1.Items.Count - 1 do
    if Pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(TreeView1.Items[i].Text)) <> 0 then
    begin
      TreeView1.Selected := TreeView1.Items[i];
      TreeView1.SetFocus;
      break;
    end;
end

Это если приделать к вашему коду поиск от текущего узла.

[Афанасий[vedma]]

Спасибо вам большое Я решил поправить как то код - работает при двойном шелчке мыши

[mihali4]

Смотрим тему
http://programmersforum.ru/showthread.php?t=174479