[EvilRussian]

Добрый день, помогите ещё вот с чем.

Есть 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 разделяются, так сказать, "папки" и "записи"? Это разные элементы или один и тот же?

[my33oh]

TreeView создан для визуализации дерева и общения с пользователем, а не для работы с деревьями в принципе.
При добавлении дитя с чемто ставь флаг родителю что в нем дите с чемто присутствует.

[EvilRussian]

Можно пример кода? И как тогда создать дерево для загрузки в TreeView?

[my33oh]

Сообщение от EvilRussian

И как тогда создать дерево для загрузки в TreeView?

а зачем тебе его загружать в TreeView, я так понимаю что речь идет о парсинге какой-нибудь фигни типа XML
а как создать дерево в памяти учат в школах, институтах и описано в куче книг типа "Фундаментальные алгоритмы и структуры данных в Delphi"

[M.A.D.M.A.N.]

Рекурсивный обход веток и листьев можно сделать.
Каждый лиск указывает на своего родителя-ветку, каждая ветка имеет список своих листьев, двунаправленный список, ничего сложного нет.

[EvilRussian]

my33oh, неправильно понимаешь. Мне нужно загрузить в TreeView список файлов с каталогами из TStringList, где записи примерно такого вида: "\vasya\vaska\VASENKA.jpg". Загрузка с жёсткого не вариант, ибо эти файлы могут и не существовать, а работать с ними надо.
Кроме того, ну создам я дерево в памяти, а факт того, что я не умею с деревьями обращаться, остаётся фактом.

M.A.D.M.A.N., я немного не понял. Это как?

[my33oh]

Сообщение от EvilRussian

ибо эти файлы могут и не существовать, а работать с ними надо.

оч интересная концепция
вообще алгоритм "список файлов -> дерево" в гугле есть, ибо встречал на форумах такие запросы
но! TreeView все равно медленен для подобных манипуляций, хотя скорость понятие относительное, может тебе и сойдет

[M.A.D.M.A.N.]

Сообщение от EvilRussian

M.A.D.M.A.N., я немного не понял. Это как?

Про двунаправленные списки слышал?