Рекурсивные механизмы спуска по дереву

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Рекурсивные механизмы спуска по дереву

- Каких деревьев не хватает в ботаническом саду?
- Бинарных, - ответил программист.

Нужно использовать рекурсивные механизмы спуска по дереву и иметь метод определения наличия child узлов у текущего узла.

function  TDBTreeView.RecurseChilds(node: TTreeNode): double;
begin
  while node <> nil do begin
    if node.HasChildren then
       Result := RecurseChilds(node.GetFirstChild);
    Result := Result + GetResultForNode(node));
    node := node.GetNextSibling;
  end;
end;

function  TDBTreeView.GetResult(curnode: TTreeNode;): double;
begin
  Result := 0;
  if curnode = nil then Exit;
  Result := RecurseChilds(curnode.GetFirstChild);
end;