Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TTreeNode: отцы и дети


ИМХО ©   (2004-08-30 14:52:00) 

Имеем дерево:

A
B
C
 D
 E
  F
 G
  H
  I
  J
K


Нужно найти всех детей узла C.

Понятно с D, E и G (проверяем, является ли для них узел C Parent).

А как насчет F, H, I и J?


Ega23   (2004-08-30 16:02:00) [1]

А, тады всё ясно...


Digitman   (2004-08-30 15:57:00) [2]

"туи" = туподпрограмму ...

прошу прощения за очепятку


Ega23   (2004-08-30 15:52:00) [3]

А "туи"?


Digitman   (2004-08-30 15:45:00) [4]

п/п = подпрограмма


Ega23   (2004-08-30 15:38:00) [5]

туи п/п - это что????


Digitman   (2004-08-30 15:33:00) [6]

у каждого прямого наследника спрашивай всех ЕГО прямых наследников

решение ведет в рекурсию - правильно тебе уже сказали

шевели гипоталамусом)

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


MBo   (2004-08-30 15:31:00) [7]

procedure Walk(Node: TTreeNode);
 var i: Integer;
 begin
   Memo1.Lines.Add(Node.Text);
   for i := 0 to Node.Count - 1 do
     Walk(Node.Item[i]);
 end;


ИМХО   (2004-08-30 15:29:00) [8]

Неверно выразился. Найти не только прямых детей, а еще и узлы, связанные теми или иными связями с узлом C.


Digitman   (2004-08-30 14:59:00) [9]


> Нужно найти всех детей узла C.


> А как насчет F, H, I и J?


а никак.
эти узлы не имеют "прямой родственной сыновне/дочерней связи" с узлом С.

о своих "прямых наследниках" знает только тот узел, кто имеет оные "сыновне/дочерние" связи, у него (этого узла) и следует спрашивать об этом


YurikGL   (2004-08-30 14:57:00) [10]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1093847342&n=0


KSergey   (2004-08-30 14:55:00) [11]

Рекурсия от С? (Count, Item)


Наверх

Титульная страница Поиск, карта сайта Написать письмо