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

Материал из DRKB

Рекурсивные механизмы спуска по дереву[править | править код]

Нужно использовать рекурсивные механизмы спуска по дереву и иметь метод определения наличия 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;


Source: http://delphiworld.narod.ru/
ID: 01124