递归加载树形列表的过程（函数）

1. //采用递归方法，D7编译调试通过。
2. //数据采用ADOQuery读取，并将数据暂存在一个动态数组中，树形列表控件为TreeView。
3. 
   
4. procedureTForm1.LoadTreeInfo;
5. type
6. TInfo=record
7. ID,//代码
8. Name,//名称
9. SuperID//上级代码
10. :string;
11. //附加字段随需添加
12. end;
13. var
14. sql:string;
15. i,nCount:Integer;
16. arrInfo:arrayofTInfo;
17. NewNode:TTreeNode;
18. 
    
19. //加载一个节点
20. procedureInitOneNode(ANode:TTreeNode;AId:string);
21. var
22. k:Integer;
23. begin
24. fork:=0tolength(arrInfo)-1do
25. ifarrInfo[k].SuperID=AIdthen
26. begin
27. NewNode:=TreeView1.Items.AddChild(ANode,arrInfo[k].Name);
28. InitOneNode(NewNode,arrInfo[k].ID);
29. end;
30. end;
31. 
    
32. begin
33. TreeView1.Items.BeginUpdate;
34. TreeView1.Items.Clear;
35. 
    
36. sql:='selectID,Name,SuperIDfromDictionaryTableorderbyID';
37. ADOQuery1.Close;
38. ADOQuery1.SQL.Text:=sql;
39. ADOQuery1.Open;
40. nCount:=ADOQuery1.RecordCount;
41. ifnCount>0then
42. begin
43. SetLength(arrInfo,nCount);
44. fori:=0tonCount-1do
45. witharrInfo[i]do
46. begin
47. ID:=Trim(ADOQuery1.FieldByName('ID').AsString);
48. Name:=Trim(ADOQuery1.FieldByName('Name').AsString);
49. SuperID:=Trim(ADOQuery1.FieldByName('SuperID').AsString);//无没有此字段，可根据上下级编码规则赋值
50. ADOQuery1.Next;
51. end;
52. end;
53. ADOQuery1.Close;
54. 
    
55. ifnCount>0then
56. begin
57. InitOneNode(nil,'');//假设顶级代码为空白
58. TreeView1.FullExpand;
59. TreeView1.Items.EndUpdate;
60. end;
61. end;
62.