Написал я как то раз один алгоритм, чесно говоря уже не помню принципа но работает. Т.е. есть таблица или запрос - флгоритм читает таблицу по порядку сверху вниз и каждую запись (а к каждой записи есть поле с циферкой, обозначающей Level т.е. уровень) и попорядку раскладывает их в дерево.
вот код:

{
int d = 0;
int r = 0;
int p = 0;
int w = 0;
int s = 0;
int q = 0;
int n = 1;
int f = 0;
int m = 0;
int k = 0;
int z = 0;

Form8->CGauge1->Progress = 0;
TreeView1->Items->Clear();
TreeView1->Items->Add(NULL,"ЭРИ");

ADOQuery1->First();
Form8->Label1->Caption = "Построение дерева...";
Form8->Label1->Visible =true;

int tr1b = 1;
while(tr1b<ADOQuery1->RecordCount)
{
tr1b++;
Form8->CGauge1->Progress = ADOQuery1->RecordCount*tr1b/100;

switch(ADOQuery1->Fields->FieldByName("Number")->AsInteger)
{
case 0: f = m+n+p+s+d+z;
n++;
TreeView1->Items->AddChild(TreeView1->Items->Item[0],ADOQuery1->Fields->FieldByName("ERI")->AsString);
break;
case 1: q = m+n+p+s+d+z;
m++;
TreeView1->Items->AddChild(TreeView1->Items->Item[f],ADOQuery1->Fields->FieldByName("ERI")->AsString);
break;
case 2: p++;
w = m+n+p+s+d+z;
TreeView1->Items->AddChild(TreeView1->Items->Item[q],ADOQuery1->Fields->FieldByName("ERI")->AsString);
break;
case 3: r = m+n+p+s+d+z;
s++;
TreeView1->Items->AddChild(TreeView1->Items->Item[w-1],ADOQuery1->Fields->FieldByName("ERI")->AsString);
break;
case 4: k = m+n+p+s+d+z;
d++;
TreeView1->Items->AddChild(TreeView1->Items->Item[r],ADOQuery1->Fields->FieldByName("ERI")->AsString);
break;
case 5: TreeView1->Items->AddChild(TreeView1->Items->Item[k],ADOQuery1->Fields->FieldByName("ERI")->AsString);
z++;
}
ADOQuery1->Next();
}
TreeView1->Items->Item[0]->MakeVisible();
TreeView1->Enabled = true;
}
т.е. есть ADOTable и оттуда чиатюся данные.
по вопросам ICQ:77655654, lyl8000@kengu.ru. я тоже из Н.Новгорода.