王立权的回答：

给楼主做了一个函数 DELPHI 7下面测试通过 procedure TForm1.LoadTree_sl(TreeView: TTreeView); var MyNode: array[0..6] of TTreeNode; //保存各级节点,最长支持6级(重点) Level: integer; ///级数 i:Integer; Listurl,Listne,Listid:TStringList; begin Listurl:= TStringList.Create; Listne := TStringList.Create; Listid := TStringList.Create; Listurl.Add('aaa'); Listurl.Add('bbb'); Listurl.Add('ccc'); Listurl.Add('ddd'); Listne.add('111'); Listne.add('222'); Listne.add('333'); Listne.add('444'); Listid.Add('1'); Listid.Add('0'); Listid.Add('1'); Listid.Add('0'); MyNode[0] := TreeView.Items.Add(TreeView.TopItem, '目录'); try TreeView.Items.BeginUpdate; for i:= 0 to Listurl.count-1 do begin if Listid.Strings[i] = '1' then MyNode[1] := TreeView.Items.AddChild(TreeView.TopItem, Listne.Strings[i]); end; finally MyNode[0].Expand(False); //展开首节点 TreeView.Items.EndUpdate; end; end; 楼主 既然你是想添加一个功能块的内容,首先我的建议是你创建一个结构体 如: TMyRec = record url:string; tne:string; id:integer; end; pRec = ^TMyRec; //结构(树形相关时有用) 然后以后的事,这个楼主可以自己想一下,我问题可以问我