Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

TTreeNode: отцы и дети   Найти похожие ветки 

 
ИМХО ©   (2004-08-30 14:52) [0]

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

A
B
C
 D
 E
  F
 G
  H
  I
  J
K


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

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

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


 
KSergey ©   (2004-08-30 14:55) [1]

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


 
YurikGL ©   (2004-08-30 14:57) [2]

http://delphimaster.net/view/1-1093847342/


 
Digitman ©   (2004-08-30 14:59) [3]


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


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


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

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


 
ИМХО ©   (2004-08-30 15:29) [4]

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


 
MBo ©   (2004-08-30 15:31) [5]

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;


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

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

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

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

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


 
Ega23 ©   (2004-08-30 15:38) [7]

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


 
Digitman ©   (2004-08-30 15:45) [8]

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


 
Ega23 ©   (2004-08-30 15:52) [9]

А "туи"?


 
Digitman ©   (2004-08-30 15:57) [10]

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

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


 
Ega23 ©   (2004-08-30 16:02) [11]

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



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

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.029 c
14-1093355614
Агент Смитт
2004-08-24 17:53
2004.09.12
Провайдеры в Донецке


1-1093722323
Delphin
2004-08-28 23:45
2004.09.12
Доброго времени суток. Как из ShellListView загрузить


1-1093508811
nomshar
2004-08-26 12:26
2004.09.12
VMT


4-1091415841
DelphiN!
2004-08-02 07:04
2004.09.12
Отслеживание запуска процессов


4-1091199779
Ertong
2004-07-30 19:02
2004.09.12
FreeLibrary