Delphi. DBTreeView. Простой алгоритм обхода всего дерева и обход всех детей конкретного узла.

Данные алгоритмы не рекурсивны, как возможно стоило бы сделать. Но в компоненте TTreeView есть ряд готовых методов, которыми можно просто пользоваться. В данном случае, мы опираемся на метод GetNext, который дает нам всегда следующий узел, независимо от уровня.

Пусть есть дерево TTreeView. Вот простой способ обойти все дерево.

procedure TPSDBTreeExplorerCheckboxes.CheckAllVisibleChildren(Node:TTreeNode);
var
  startLevel: integer;
  TempNode: TTreeNode;
begin


    with (FMainFrame as TPSDBTreeExplorerMainFrame).TreeView do begin


        startLevel:=Node.Level;
        TempNode:=Node;
         repeat


         TempNode.StateIndex:=2; // set check box to true

         TempNode:=TempNode.GetNext;
         until (not Assigned(TempNode));


    end;


end;

procedure TPSDBTreeExplorerCheckboxes.CheckAllVisibleChildren(Node:TTreeNode);

var

startLevel: integer;

TempNode: TTreeNode;

begin

with (FMainFrame as TPSDBTreeExplorerMainFrame).TreeView do begin

startLevel:=Node.Level;

TempNode:=Node;

repeat

TempNode.StateIndex:=2; // set check box to true

TempNode:=TempNode.GetNext;

until (not Assigned(TempNode));

end;

Обход самого узла и всех детей конкретного узла

procedure TPSDBTreeExplorerCheckboxes.CheckAllVisibleChildren(Node:TTreeNode);
var
  startLevel: integer;
  TempNode: TTreeNode;
begin



    with (FMainFrame as TPSDBTreeExplorerMainFrame).TreeView do begin


        startLevel:=Node.Level;
        TempNode:=Node;
         repeat


         TempNode.StateIndex:=2; // set check box to true

         TempNode:=TempNode.GetNext;
         until (not Assigned(TempNode)) or (TempNode.Level<=StartLevel);




    end;


end;