Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

ancara © (2004-06-09 11:37:00)
Доброго времени суток, уважаемые мастера! Понимаю, что вопрос объемный, поделитесь пожалуйста, ссылочкой на статью, если у кого есть, про рекурсию там, чтение деревьев или что нибудь близкое к этому.

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

ancara (2004-06-09 14:21:00) [1]
2 Clickmaker
Да, и правда просто! С рекурсией никогда близко дело не имел, спасибо за пример, теперь буду "иметь на вооружении". А ReadNode не надо писать, не в том плане, что мне денег жалко :), а просто эта задача вполне мне по силам и не зачем мне Вас утруждать :).

2 nejest
Это мне для компонента моего (см. http://www.delphimaster.ru/cgi-bin/forum.pl?id=1086158880&n=12), точнее для его редактора, кот. пробегает по "деревянной" структуре компонента и отображает в TTreeView. Пример Clickmaker'а, замечательно для этого подходит.

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

NAlexey (2004-06-09 13:10:00) [2]
He-he.

Clickmaker (2004-06-09 12:59:00) [3]

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

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

NAlexey (2004-06-09 12:53:00) [4]
>Clickmaker © (09.06.04 12:25) [2]
>вот и вся рекурсия
А где ReadNode?:)

Clickmaker (2004-06-09 12:25:00) [5]
А чего тут читать?

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;

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

nejest (2004-06-09 12:24:00) [6]
2 ancara
подробней расскажи, что интересует?
Откуда прочитать дерево?
Без этого ответа не дождёшься.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »