Заполнить TTreeView

[Leonis]

Вопрос банальнее некуда, а врубиться не могу.
Идея такая.

Есть примерно такая табличка:

# Название #предка
1 ляляля 1
2 111111 1
3 312321 2
4 ролрол 1
5 уокуку 3
.....

Я её хочу закинуть в дерево TreeView:

for i:=1 to pathtableentries do
begin
if i=1 then treeview1.Items.Add( nil, 'R00T' );
if i<>1 then
treeview1.items.AddChild(treeview1. items[PathTableRecord[i].ParentDirectoryNumber-1], PathTableRecord[i].DirectoryIdentifier);
end;

Программа работает, но результат совсем не тот, что должен быть. Некоторые данные совсем не в том месте, где должны находиться, и при нажатии на определённый элемент в дереве, текст выводится верный, а номер явно ошибочный.
Подскажите как правильно заполнить дерево.

[mihali4]

А вы вот так сделайте:

var mynode: TTreeNode;
...
if i=1 then 
mynode:=treeview1.Items.Add( nil, 'R00T' ) else
treeview1.items.AddChild(mynode, PathTableRecord[i].DirectoryIdentifier);

[Leonis]

Пример компактный, но не совсем подходит.
В этом случае все "элементы" становятся "детьми" узла R00T.

Сорри за плохо заданный вопрос.

Структура данных:

TPathTableRecord= packed record
  DirectoryIdentifier:string; //Название узла
  ParentDirectoryNumber:word; // номер родителя, которому принадлежит узел
end;

PathTableRecord: Array[1..100] of TPathTableRecord;

В массиве у меня хранятся данные, по которым надо построить дерево, наподобие дерева каталогов.
Все примеры, что я нашёл здесь на форуме, да и в интернете громоздкие и не совсем подходят для моей цели. Подскажите краткое и грамотное решение плизз

[mihali4]

Если вы отсортируете свой рекорд по индексу предка и по собственному индексу (именно в такой последовательности), то алгоритм будет однопроходным - последовательный просмотр и выбор - или в корень, или в "детки" только что внесенному "предку".
С БД гораздо проще. И, как всегда, структура данных должна облегчать получение результата.

[Leonis]

с базами данных намного проще, однозначно

У меня перед сном озарения бывают. Алгоритм наверно не самый лучший, но работает:

var
nodes:array of tfctreenode;

setlength(nodes,sizeof(PathTableRecord));
if pathtableentries>0 then begin
 for i:=1 to pathtableentries do
  begin
    if i=1 then treeview1.Items.Add(nil, 'R00T' ) else
       nodes[i-1]:=treeview1.items.AddChild(nodes[PathTableRecord[i].ParentDirectoryNumber-1], PathTableRecord[i].DirectoryIdentifier);
  end;
nodes:=nil;

Говоря простым русским языком, я запоминаю каждое звено, и потом обращаюсь к нему напрямую

[mihali4]

Одного никак не пойму:
treeview1.Items.Add(nil, 'R00T' )
У вас же этот элемент имеет имя "ляляля"... Вернее, не имя, а текст. А вы почему-то обзываете его ROOT...

[Leonis]

Я ведь поправился
В первом посте я закинул в табличку первое, что пришло в голову, чтобы было понятно из чего она примерно состоит. Да и этот 'R00T' - всего лишь рабочее название, первое что пришло в голову на момент написания кода

Вообще, TreeNode's для меня всё равно тёмный-претёмный лес, и надеюсь, что с этим компонентом мне больше не придётся сталкиваться в жизни


Спасибо за советы, сортировка в моём случае была бы не лишней (если бы таблица не была уже отсортирована предварительно) !