Алгоритм создания дерева Delphi

[VadEr]

Доброго времени суток!

Уважаемые программисты! Помогите пожалуйста создать алгоритм, для создания дерева по полям из БД.

Сама Таблица примерно такая:
table.jpg

А дерево созданное вручную по данной таблице:
Tree.jpg

Как мне сделаь это програмно?

[Stilet]

Не сильно сложно. Можно рекурсией. Прикрепи БД, попробуем.

[danekne]

Элементарное двоичное дерево - неоднократно рассматривалось.

 type
       TreePointer = ^tree;
       tree = record
         data: char;
         left: TreePointer;
         right:TreePointer;
       end;

     { добавить элемент в двоичное дерево }
     function Stree(root,r:TreePointer;data:char);TreePointer;
     begin
       if r=nil then
       begin
         new(r); { получить новую вершину }
         r^.left:=nil;
         r^right:=nil;
         r^.data:=data;
         if data<root^.data then root^.left:=r
         else root^.right:=r;
         STree:=r;
       end else
       begin
         if data<r^.data then STree:=STree(r, r^.left, data)
         else STree:=STree(r, r^.right, data);
       end;
     end; { конец функции добавления элемента в двоичное
                         дерево }

P.S. код - не мой

[Stilet]

danekne

Ты скорее всего тему не понял. Автору нужно таблицу в дерево превратить на основе TreeView и индексов в таблице, а не список составлять.

[danekne]

Ну да, это другой вопрос))) Ну, нааадеюсь и дерево поможет

[VadEr]

Вот сам разобрался, если кому нужно:

procedure TForm1.Button1Click(Sender: TObject);

procedure find(t:TTreeNode; i:integer);
var
 tl :TTreeNode;
 bm:TBookmark;
begin
if Table.Locate('NVERCH', i, []) then begin
 while (TableNVERCH.AsInteger = i) and (not Table.Eof) do
 begin
    bm := Table.GetBookmark;
    tl:= Tree.Items.AddChild(t, TableNAIM.Value);
    find(tl, TableNUM.AsInteger);
    Table.GotoBookmark(bm);
    Table.FreeBookmark(bm);
    Table.Next;
 end;
end;
end;

begin
 Table.First;
 find(nil, 0);
 Tree.FullExpand;
end;