Количество дочерних элементов элементов в дереве

← →
Dionnis (2004-10-16 16:42) [0]

Добрый день всем! В дереве нужно посчитать для каждого узла количество всех его дочерних элементов.
Tree. Items[i].Count не даёт желаемого результата, так как Count - это количество дочерних элементов i-го узла, а если эти элементы имеют в свою очередь дочерние элементы, то они не принимаются в расчёт. Может есть какой известный алгоритм для подсчёта этих элементов, тогда киньте ссылочку, или текст.
Заранее всем благодарен!

← →
aleshap (2004-10-16 16:48) [1]

алгоритм есть - называется от рекурсивный метод.

← →
Dionnis (2004-10-16 16:59) [2]

Спасибо конечно за подсказку, но то что он рекурсивный это понятно 8-), а поконкретнее нельзя?

← →
begin...end © (2004-10-16 17:13) [3]

Вроде так, насколько я понимаю:

функция ЧислоДочернихЭлементов(НомерУзла: Integer): Integer;
переменные
Количество, Индекс: Integer;
начало
Результат := 0;
Количество := Items[НомерУзла].Count;
если Количество = 0 тогда
Результат := Количество
иначе
для Индекс := 0 до Количество - 1 делаем
Увеличить(Результат, ЧислоДочернихЭлементов(Индекс))
конец.

← →
Dionnis (2004-10-16 17:22) [4]

Спасибо большое!!! 8-)

Количество дочерних элементов элементов в дереве Найти похожие ветки