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

1. //采用递归方法，D7编译调试通过。
2. //数据采用ADOQuery读取，并将数据暂存在一个动态数组中，树形列表控件为TreeView。
4. procedure TForm1.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: array of TInfo;
17.   NewNode: TTreeNode;
19.   //加载一个节点
20.   procedure InitOneNode(ANode: TTreeNode; AId: string);
21.   var
22.     k: Integer;
23.   begin
24.     for k := 0 to length(arrInfo) - 1 do
25.       if arrInfo[k].SuperID = AId then
26.       begin
27.         NewNode := TreeView1.Items.AddChild(ANode, arrInfo[k].Name);
28.         InitOneNode(NewNode, arrInfo[k].ID);
29.       end;
30.   end;
32. begin
33.   TreeView1.Items.BeginUpdate;
34.   TreeView1.Items.Clear;
36.   sql := 'select ID, Name, SuperID from DictionaryTable order by ID';
37.   ADOQuery1.Close;
38.   ADOQuery1.SQL.Text := sql;
39.   ADOQuery1.Open;
40.   nCount := ADOQuery1.RecordCount;
41.   if nCount > 0 then
42.   begin
43.     SetLength(arrInfo, nCount);
44.     for i := 0 to nCount - 1 do
45.       with arrInfo[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;
55.   if nCount > 0 then
56.   begin
57.     InitOneNode(nil, '');  //假设顶级代码为空白
58.     TreeView1.FullExpand;
59.     TreeView1.Items.EndUpdate;
60.   end;
61. end;