treeview和数据库的问题 ( 积分: 50 )

我想在treeview中装入数据库的内容：
例如：
var
aa:ttreenode;
begin
treeview1.items.clear;
aa:=treeview1.items.add(nil,'第一级项目');
aa.haschildren:=true;
while not query1.eof do
begin
treeview1.items.addchild(aa,query1.fieldbyname('项目').asstring;
while not query2.eof do
begin
?????????? //这里将query2的内容装入到query1的项目里作为子项，该如何写？
query2.next;
end;
query1.next;
end;
aa.expand(true);
end;


求高手教我！

如果你是想一次载入所有的节点,那必须使用递归

请写个例子好么！

function AddTreeNode(tn:TTreeNode);
var
tmp:TTreeNode;
begin
--根据 tn 参数信息来查找其下一级的字节点
--此处的query1最好在函数内动态生成
query1:=TQuery.create;
.....................
......
if query1.isempty then exit;
while not query1.eof do begin
tmp:=treeview1.items.addchild(tn,query1.fieldbyname('项目').asstring;
AddTreeNode(tmp);
query1.next;
end;
end;

只提供一种思路,没有测试过

上面修改了一下.

接受答案了.