Скачать: CL | DM;

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

← →
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 набросать... :)

---

← →
NAlexey ©   (2004-06-09 13:10) [5]

He-he.

---

← →
ancara ©   (2004-06-09 14:21) [6]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c