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

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

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

Недавно добавленные исходники
• Animation Loaders 661 • DeLiKaTeS Tetris (Тетрис) 5 670 • TDictionary Custom Sort 7 634 • Fast Watermark Sources 7 325 • 3D Designer 10 525 • Sik Screen Capture 7 843 • Patch Maker 8 069 • Айболит (remote control) 8 124 • ListBox Drag & Drop 6 928 • Доска для игры Реверси 100 098 • Графические эффекты 8 189 • Рисование по маске 7 590 • Перетаскивание изображений 6 190 • Canvas Drawing 6 554 • Рисование Луны 6 484 • Поворот изображения 5 662 • Рисование стержней 4 586 • Paint on Shape 3 287 • Генератор кроссвордов 4 276 • Головоломка Paletto 3 414 • Теорема Монжа об окружностях 4 234 • Пазл Numbrix 2 747 • Заборы и коммивояжеры 3 649 • Игра HIP 2 458 • Игра Go (Го) 2 439 • Симулятор лифта 2 845 • Программа укладки плитки 2 289 • Генератор лабиринта 3 005 • Проверка числового ввода 2 511 • HEX View 2 915