Как прочитать дерево?

← →
ancara © (2004-06-09 11:37) [0]

Доброго времени суток, уважаемые мастера! Понимаю, что вопрос объемный, поделитесь пожалуйста, ссылочкой на статью, если у кого есть, про рекурсию там, чтение деревьев или что нибудь близкое к этому.

Заранее очень благодарен!

← →
nejest (2004-06-09 12:24) [1]

2 ancara
подробней расскажи, что интересует?
Откуда прочитать дерево?
Без этого ответа не дождёшься.

← →
Clickmaker © (2004-06-09 12:25) [2]

А чего тут читать?

procedure ReadTree(StartNode);
begin
if (StartNode = nil) then StartNode := TopNode;
ReadNode(StartNode);
for i := 0 to StartNode.Count-1 do begin

if StartNode.Item[i].HasChildren then
ReadTree(StartNode.Item[i])
else
ReadNode(StartNode.Item[i]);
end;
end;

вот и вся рекурсия

← →
NAlexey © (2004-06-09 12:53) [3]

>Clickmaker © (09.06.04 12:25) [2]
>вот и вся рекурсия
А где ReadNode?:)

← →
Clickmaker © (2004-06-09 12:59) [4]

> NAlexey © (09.06.04 12:53) [3]
> А где ReadNode?:)

За небольшое вознаграждение со стороны автора вопроса могу и ReadNode набросать... :)

He-he.

2 Clickmaker
Да, и правда просто! С рекурсией никогда близко дело не имел, спасибо за пример, теперь буду "иметь на вооружении". А ReadNode не надо писать, не в том плане, что мне денег жалко :), а просто эта задача вполне мне по силам и не зачем мне Вас утруждать :).

2 nejest
Это мне для компонента моего (см. http://delphimaster.net/view/5-1086158880/), точнее для его редактора, кот. пробегает по "деревянной" структуре компонента и отображает в TTreeView. Пример Clickmaker"а, замечательно для этого подходит.

Огромное спасибо!

Как прочитать дерево? Найти похожие ветки