Не добавляется дочерний узел в родительский в TreeView

[artemavd]

Доброе утро! Сделал поиск номера узла по названию:

   for i := 0 to Form1.tv_1.Items.Count - 1 do
   begin
     if Pos('Родительский узел',Form1.tv_1.Items[i].Text) > 0 then
     begin
       Form1.tv_1.Items.Item[i].Selected:=True;
       Form1.tv_1.SetFocus;
       Form1.sLabel1.Caption:='';
       Node := Form1.tv_1.Selected;
       if Node <> nil then
       begin
        Index := Integer(Node.Data);
        Form1.sLabel1.Caption:=IntToStr(Index);
        Form1.tv_1.Items.AddChild(Form1.tv_1.Items[Index],
                                          Trim(Form13.sEdit4.Text) + ' ' +
                                          Trim(Form13.sEdit5.Text) + ' ' +
                                          Trim(Form13.sEdit6.Text));
        Node.ImageIndex:=63;
        Node.SelectedIndex := Node.ImageIndex;
        Node.Data := Pointer(IndexValue);
       end;
     end;
   end;

Узел находится. Его индекс заносится в sLabel1. До не добавляется дочерний узел. Мне нужно добавить дочерний узел в тот родительский, индекс которого я получил при поиске. А сейчас дочерний узел создается четвертым по счету. Просто если пересчитать все узлы дерева начиная с самого верхнего (0,1,2,3...), то мой дочерний добавляется как четвертый. А мне надо его добавить так как я сказал выше. Что я не так делаю? Или не дописал.

Кстати, каждому новому добавленному узлу должен присваиваться свой индекс. Но, это я сам сделаю. Помогите с добавлением.

[Аватар]

Вообще-то значение из поля Data имеет слабое отношения к индексу в Items, даже если в Data действительно изначально помещен индекс из Items. Любое добавление-удаление узла может изменить положение остальных узлов в Items. И создавал бы Form1.tv_1.Items.AddChild(Node,...

[artemavd]

Ну а сам-то код правильно составлен? Цикл и добавление? Попробую пока использовать Node

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

[Stilet]

Мое видение:

   
with Form1.tv_1 do
for i := 0 to Items.Count - 1 do   begin
     if Pos('Родительский узел',Items[i].Text) > 0 then     begin
       Form1.sLabel1.Caption:='';
       Node := Form1.tv_1.Selected;
       if Node <> nil then   begin
        Form1.sLabel1.Caption:=IntToStr(I);
        Items.AddChild(Items[i],
                                          Trim(Form13.sEdit4.Text) + ' ' +
                                          Trim(Form13.sEdit5.Text) + ' ' +
                                          Trim(Form13.sEdit6.Text));
        Node.ImageIndex:=63;
        Node.SelectedIndex := Node.ImageIndex;
        Node.Data := Pointer(IndexValue);
       end;
     end;
   end;

[Аватар]

Проверка Node на nil в данном случае излишня. И начиная с Node.ImageIndex:=63; обрабатывается не вновь созданный узел, хотя думаю имелось ввиду обработка как раз нового узла. И желателен после этого принудительный выход из цикла. Дальше зачем проверять? Ну и если найдутся вруг узлы с таким же текстом, то что будет?

[artemavd]

хотя думаю имелось ввиду обработка как раз нового узла

Да, надо обрабатывать вновь добавленный узел.

Ну и если найдутся вруг узлы с таким же текстом, то что будет?

Ну, пользователь просто не сможет добавить в дерево узел, если он там присутствует. Так заложено логикой работы программы.

Мое видение:

Ща, тоже погляжу, попробую

----
Виталий, чо-т ничо не добавилось в дерево.

[Stilet]

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

[artemavd]

Да собственно и скринировать-то нечего. Задача простая: найти по названию узел в дереве, получить его индекс, посчитать количество всех узлов дерева, добавить дочерний узел в найденный по тексту родительский узел и присвоить новому дочернему узлу индекс (который можно сформировать, например, из получив количество всех узлов дерева). Вот так. А, да, дочернему узлу присвоить картинку отличную от картинки родительского узла, которая должна остаться неизменной при добавлении в него дочернего узла.

[Аватар]

Попробуй так (в дельфи не проверял)

for i := 0 to Form1.tv_1.Items.Count - 1 do
  if Pos('Ðîäèòåëüñêèé óçåë',Form1.tv_1.Items[i].Text) > 0 then begin
    Form1.tv_1.Items.Item[i].Selected:=True;
    Form1.tv_1.SetFocus;
    Form1.sLabel1.Caption:='';
    Index:=Integer(Form1.tv_1.Selected.Data);
    Form1.sLabel1.Caption:=IntToStr(Index);
    Node:=Form1.tv_1.Items.AddChild(Form1.tv_1.Selected,
                                    Trim(Form13.sEdit4.Text) + ' ' +
                                    Trim(Form13.sEdit5.Text) + ' ' +
                                    Trim(Form13.sEdit6.Text));
    Node.ImageIndex:=63;
    Node.SelectedIndex := Node.ImageIndex;
    Node.Data := Pointer(IndexValue);
    Break;
  end;

[artemavd]

Аватар, не устаю тебя благодарить . Спасибо, это сработало вроде пока что. А как теперь присвоить индекс для добавленного дочернего узла? A то если выбираешь его, то он пишет "0", что естественно, т.к. я же не задаю ему номер явно.