У treeview собственная индексация возникает, в результате дерево строится неправильно, вот
код
Код:
TreeView1.Items.Clear;
TreeView1.Items.AddChild(nil, 'root');
dm.ADOQuery1.SQL.Text:='select id, surname, boss from asyp.stryktyra';
try
dm.ADOQuery1.Open;
except
end;
dm.ADOQuery1.First;
while not dm.ADOQuery1.Eof do
begin
TreeView1.Items.AddChild(TreeView1.items[dm.ADOQuery1.FieldByName('boss').AsInteger], dm.ADOQuery1.FieldByName('surname').AsString);
dm.ADOQuery1.Next;
end;
или я что-то не так понял?