Построение сильноветвящегося дерева на основе таблицы отношений

   ArrayOfNodePointers[Table[i].parent]->addChild( ArrayOfNodePointers[Table[i].child] );
   Node *root = ArrayOfNodePointers[0];
   Table.free();
   ArrayOfNodePointers.free(); // высвободить память под массивом, не освобождая узлы!

class Node {
  int index;
  std::list<Node*> childs;
  Node(int in):index(n) {}
  void addChild(Node *n)
  {
    childs.push_back(n);
  }
};
class AONP {
   Node **data;
   AONP(int n)
   {
     data = new Node*[n];
   }
   ~AONP()
   {
     delete data;
   }
   Node *oprator[](int n)
   {
     return data[n];
   }
};
 
AONP ArrayOfNodePointers(100500);

IBQuery1->SQL->Clear();
 IBQuery1->SQL->Add("select parent_class_id as parent,child_class_id as child from obj_allowed_links order by parent_class_id");
 IBQuery1->Open();
 int node_id,parent_node_id;
 AnsiString text_par,text_ch;
 TTreeNode *node;
 //добавляем узел верхнего уровня - корень дерева (root)
 TreeView2->Items->Clear();
 TreeView2->Items->BeginUpdate();
 TreeView2->Items->Add(NULL, "BASE_CLASS");
 node=TreeView2->Items->Item[0];
 TreeView2->Items->Item[0]->Data=0;
 for(IBQuery1->First();!IBQuery1->Eof;IBQuery1->Next())
  {
   node_id=IBQuery1->FieldByName("child")->AsInteger;
   parent_node_id=IBQuery1->FieldByName("parent")->AsInteger;
   IBQuery2->SQL->Clear();
   IBQuery2->SQL->Add("select code from classes where id=:id");
   IBQuery2->ParamByName("id")->AsInteger=IBQuery1->FieldByName("parent")->AsInteger;
   IBQuery2->Open();
   text_par=IBQuery2->FieldByName("code")->AsString;
   IBQuery2->SQL->Clear();
   IBQuery2->SQL->Add("select code from classes where id=:id");
   IBQuery2->ParamByName("id")->AsInteger=IBQuery1->FieldByName("child")->AsInteger;
   IBQuery2->Open();
 
   text_ch=IBQuery2->FieldByName("code")->AsString;
   ////ищем родительский узел
   for(int i=0; i<TreeView2->Items->Count;i++)
    {
     if(TreeView2->Items->Item[i]->Data==(void*)parent_node_id)
     {
      node=TreeView2->Items->Item[i];
      break;
     }
    }
      // ------------------------
   //добавляем к найденому узлу ребенка
   node=TreeView2->Items->AddChild(node, text_ch);
   //фиксируем id ребенка
   node->Data=(void*)node_id;
  }
 TreeView2->Items->EndUpdate();