Определение номера итема относительно корневого раздела в TreeView

[Dozent]

Здравствуйте.
БД состоит из 4 полей(акцес): id p_id name abindex
примерно такого вида таблица где хранятся данный для построения дерева.

1 0 Первый 0
2 0 Второй 1
3 0 Третий 2
4 0 Четвёртый 3
5 0 Пятый 4
6 2 Подраздел21
7 6 Подраздел 211


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

Первый
Второй
Подраздел21
Подраздел211
Третий
Четвёртый
Пятый

ЧТобы выделить "Подраздел211" мне надо написать так All.Items.Item[All.Selected.Index].Item[0].Item[0]Selected:=true;
И только после того как я ег опрограмно выделяю могу получить абиндекс

Соотвествено я не знаю сколько подразделов добавит пользователь и такой вид естествено не подойдёт
All.Items.Item[All.Selected.Index].Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]
..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]
..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]
..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]
..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]
..Item[i]..Item[i]..Item[i]..Item[i]..Item[i]..Item[i].Selected:=true;

как выдти из этого?)

У меня есть соображения некоторые, например я смогу по бд узнать какой он посчёту начиная от корня, но опять же как выделить, возможно так: переменая присвоить до родителя и обрашатся Тривив.Родитель.item[i].selected:=true;

Но моих познаний ксожалению нехватает для этой реализации...
Прошу помоши знающих людей...

[Stilet]

Ну ты барбос.... Зачем постишь код который не вмещается в экран? Не у всех мониторы 160:9.
По поводу темы - Ты получаешь 211
Проходишь по этому массиву номеров:

 var n:TTreeNode;
 begin
  n:=Начальной ветке;
  for i:=1 to 3 do begin
   if n.Count>=Элемент[i] then
     n:=n.Items[Элемент[i]];
  end;

В результате у тя в n нужный элемент

[Dozent]

All.Selected.Item[i].Selected:=true; вот решение нужное мне. Спасибо большое!

[Stilet]

All.Selected.Item[i]

Но ты учти i - это абсолютный индекс.

[Dozent]

Да вроде не абсолютный... Пока работает как надо...

[Stilet]

А ну да...
Я спутал.
Впрочем если Selected - верхняя ветка то может быть абсолютным

[Dozent]

Не не там ведь как идёт
item[0].item[0].item[1]

1
__11
___111
___112(элемент 0:0:1)

Ведь так помойму тут идёт, а абсолутный это из другой немножко серии

[Stilet]

Не буду спорить, главное что ты разобрался.