|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Поиск дочернего элемента в TreeView
Добрый день, помогите ещё вот с чем.
Есть TreeView, который я динамически заполняю следующей процедурой: Код:
procedure AddTree(nod:TTreeNode; s:string); var ID: integer; prefix: string; begin ID := Pos('\', s); if ID > 0 then begin prefix := Copy(s,0,ID-1); delete(s,0,ID-1); nod := FindNodeWithText(nod, prefix); //Ищем: есть ли уже такой элемент? if nod = nil then begin nod := TreeView1.Items.AddChild(nod, prefix); AddTree(nod,s) end end else nod := TreeView1.Items.AddChild(nod, s); end; Следовательно, мне нужно находить, есть ли в дочерних элементах этой ноды "nod" элемент "prefix". Как можно сделать это? Пробовал перебор а-ля TStringList, но совершенно не понимаю, как его реализовать: Код:
function FindNodeWithText(nod:TTreeNode; find:string): TTreeNode; var i:integer; begin Result:=nil; for i:=0 to nod.??? do //Как узнать количество детей? begin if nod.Item[i].Text=find then //Это название? begin Result:=nod.Item[i].???; //Как задать определённое дитя как результат? break end; end; end; Помогите, пожалуйста, кто-нибудь советом по реализации, а лучше - кодом. Очень важна эффективность кода, потому что придётся прогонять через это очень большие деревья, не меньше тысячи элементов. Кроме того, как в TreeView разделяются, так сказать, "папки" и "записи"? Это разные элементы или один и тот же? Если не ты, то кто? (с) Терри Пратчетт Не забывайте ставить плюсы и говорить спасибо! Последний раз редактировалось EvilRussian, 19.12.2012 в 20:40. |
#2
|
|||
|
|||
TreeView создан для визуализации дерева и общения с пользователем, а не для работы с деревьями в принципе.
При добавлении дитя с чемто ставь флаг родителю что в нем дите с чемто присутствует. |
#3
|
||||
|
||||
Можно пример кода? И как тогда создать дерево для загрузки в TreeView?
Если не ты, то кто? (с) Терри Пратчетт Не забывайте ставить плюсы и говорить спасибо! |
#4
|
|||
|
|||
Цитата:
а как создать дерево в памяти учат в школах, институтах и описано в куче книг типа "Фундаментальные алгоритмы и структуры данных в Delphi" |
#5
|
||||
|
||||
Рекурсивный обход веток и листьев можно сделать.
Каждый лиск указывает на своего родителя-ветку, каждая ветка имеет список своих листьев, двунаправленный список, ничего сложного нет. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#6
|
||||
|
||||
my33oh, неправильно понимаешь. Мне нужно загрузить в TreeView список файлов с каталогами из TStringList, где записи примерно такого вида: "\vasya\vaska\VASENKA.jpg". Загрузка с жёсткого не вариант, ибо эти файлы могут и не существовать, а работать с ними надо.
Кроме того, ну создам я дерево в памяти, а факт того, что я не умею с деревьями обращаться, остаётся фактом. M.A.D.M.A.N., я немного не понял. Это как? Если не ты, то кто? (с) Терри Пратчетт Не забывайте ставить плюсы и говорить спасибо! |
#7
|
|||
|
|||
Цитата:
вообще алгоритм "список файлов -> дерево" в гугле есть, ибо встречал на форумах такие запросы но! TreeView все равно медленен для подобных манипуляций, хотя скорость понятие относительное, может тебе и сойдет |
#8
|
||||
|
||||
Цитата:
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |