TreeList (TreeView) - как создать древовидный список

[chandrasecar]

Как создать древовидный список в TreeList (TreeView)? Нужно создать список на подобие данного:

1
|-1.1
|-1.2
2
|-2.1
|-2.2

и т.д...

Только с особенностью, что данный список будет создаваться в цикле:

for i:=1 to n do begin
  {создание записи первого уровня}
  for j:=1 to m do begin
    {создание доченей записи второго уровня}
  end;
end;

Просто уже измучился, ничего толкового не могу добиться...

[Скандербег]

procedure TForm1.Button2Click(Sender: TObject);
var
  TN : TTreeNode;
  I, J, M, N : Integer;
begin
  M := 2; N := 2;
  for I := 1 to M do begin
    TN := TreeView1.Items.AddChild(nil, IntToStr(I));
    for J := 1 to N do begin
      TreeView1.Items.AddChild(TN, IntToStr(I)+'.'+IntToStr(J));
    end;
  end;
end;

[chandrasecar]

Спасибо! Теперь в Дельфи я стал еще чуточку опытнее!

А как теперь можно получить индекс выделенной строки и подстроки? Мне нужно связать TreeView с БД. Ведь каждая строчка имеет индекс, записи в главных строках и их номера совпадают с БД. Дочерние, если их индексацию начинать с 0 или 1 в каждом родителе, то тоже будут совпадать.

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

[Stilet]

Вообще, я бы делал не так.
У каждого TreeItem есть свойство Data. В базе пусть будет ключевое поле, значение которого будет перекатываться в этот Data каждой ветке, таким образом TreeView.Selected.Data будет связано с записью в базе, и не надо ничего выискивать

[_SERGEYX_]

Мне нужно связать TreeView с БД

А почему бы не сделать наоборот. Создать в БД "древовидную" таблицу и выводить ее в DBTreeView.

[chandrasecar]

Спасибо, но я знаю как мне лучше.

Так как все-таки получить индекс выделенной строки в TreeView? И этот индек будет определять дочерняя запись или нет?

[Скандербег]

Stilet уже сказал как связать строки из таблицы базы с элементами TReeView.
И, если значение индекса будет находится в свойстве Data, то это значение можно получить так:

  Ind := Integer(TreeView1.Selected.Data);
//а узнать дочерний ли это элемент так:
  if TreeView1.Selected.Level > 0 then
    //дочерний элемент