VirtualStringTree. Найти узел с указанными данными.

[Человек_Борща]

Доброго времени суток!

Каждому узлу передается некоторая структура:

type
  TMyNodeRec = ...
   ID:CARDINAL:
   ...
   end;

Как найти узел у которого в ^TMyNodeRec.ID есть искомое число?

[Аватар]

Перебор узлов с самого начала с проверкой условия не подходит?

[Человек_Борща]

Перебор узлов с самого начала с проверкой условия не подходит?

Очень даже. НО, как обратиться к Child-узлу?

for i:=0 to VST.RootNode.ChildCount -1 do
 begin
    //Что дальше-то? 
 end;

Есть внятная документация по Virtual TreeView? В оф. я не нашел как обращаться к дочерним узлам...

[Аватар]

Здесь есть пример рекурсивного перебора всех узлов
http://delphigears.blogspot.com/2011...-treeview.html

[Баламут]

Ребят, я конечно дико извиняюсь, но чем не устраивает метод GetNext? Просто давно работаю с этим компонентом и данную задачу решаю именно через него. Код типа приведенного ниже прекрасно работает

for i := 0 to VT1.TotalCount - 1 do
begin
    Node := VT1.GetNext(Node);
   ................
end;

[Человек_Борща]

Баламут, Мне устроит все если я научусь им пользоваться. Да вот нет внятной документации, только дохлый выкидышь Doc-o-Matic в котором дико сложно ориентироваться.

[Баламут]

Да всегда рад помочь. Предыдущий мой пост помог или что-то не понятно? Ясен пень, что полный талмуд по этому компоненту не выложишь. Я и сам не все знаю. Будем вместе разбираться

[Человек_Борща]

for i := 0 to VT1.TotalCount - 1 do
begin
    Node := VT1.GetNext(Node);

Я не понимаю как проходит итерация, где используется переменная i?

var
 Node:PVirtualNode;
 i:Integer;
begin
 Node:=VST.RootNode;
 for i:=0 to VST.TotalCount -1 do
 begin
  Node:=VST.GetNext(Node) 
 end;
end;

Так?

[Аватар]

А так?

Node:=VST.RootNode;
while Node<>nil do begin
  ...
  Node:=VST.GetNext(Node) 
end;