【Delphi】【問題】如何將資料庫的欄位資料轉成TreeView樹狀結構？ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35419    只能完成，兩階層樹狀結構！ 如何將資料庫轉換為多階層樹狀結構？ 例如： ParentID的根節點不只為-1，意思是依據深度不同，ParentID的根節點值也不同。

 
     ----藝術文化(-1)
           |----音樂(526)
                  |----西洋音樂(577)
                           |----.....     

網海無涯，學無止境!

好像K.TOP V1.1 Datum Browse Tool [源码]中就有将数据库资料转成树型菜单多层多级显示功能哦！ src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=11119025&CC=248675">

原程式本就是Recurisive, 應該可以一層層往下, 如果不行, 應Debug看看, 為何不會進入下一層 原sql字串有錯, 但如果欄位為integer, 也不用特地改為string qry.sql.add('select ID,SORTNAME from Tablename where ParentID=' inttostr(pid));

引言: 原程式本就是Recurisive, 應該可以一層層往下, 如果不行, 應Debug看看, 為何不會進入下一層 原sql字串有錯, 但如果欄位為integer, 也不用特地改為string qry.sql.add('select ID,SORTNAME from Tablename where ParentID=' inttostr(pid));

謝謝指教～上一個問題已OK！ 網海無涯，學無止境!

謝謝 sos_admin 大大告知～    可不可以就本主題，說明一下呢？        網海無涯，學無止境!

//****************************直接实现 procedure TForm1.BitBtn1Click(Sender: TObject); var Treenode:array[1..3] of TTreenode; begin Treenode[1]:=Treeview1.Items.AddChild(nil,'11111_1'); //###################### Treenode[2]:=Treeview1.Items.AddChild(Treenode[1],'22222_1');      //#########################     Treenode[3]:=Treeview1.Items.AddChild(Treenode[2],'33333_1');           //###############            Treeview1.Items.AddChild(Treenode[3],'44444_1');            Treeview1.Items.AddChild(Treenode[3],'44444_2');            Treeview1.Items.AddChild(Treenode[3],'44444_3');            Treeview1.Items.AddChild(Treenode[3],'44444_4');           //###############     Treeview1.Items.AddChild(Treenode[2],'33333_2');     Treeview1.Items.AddChild(Treenode[2],'33333_3');     Treeview1.Items.AddChild(Treenode[2],'33333_4');      //######################### Treeview1.Items.AddChild(Treenode[1],'22222_2'); Treeview1.Items.AddChild(Treenode[1],'22222_3'); Treeview1.Items.AddChild(Treenode[1],'22222_4'); //###################### Treeview1.Items.AddChild(nil,'11111_2'); Treeview1.Items.AddChild(nil,'11111_3'); Treeview1.Items.AddChild(nil,'11111_4'); end;    //************************利用统一的方法实现    function addnode(const Treeview1:ttreeview;  Treenode:tTreenode; str:string):tTreenode; begin result:=Treeview1.Items.AddChild(Treenode,str); end;        procedure TForm1.Button1Click(Sender: TObject); var treenode1,treenode2:ttreenode; begin treenode1:=addnode(treeview1,nil,'11111_1'); addnode(treeview1,nil,'11111_2'); addnode(treeview1,nil,'11111_3'); addnode(treeview1,nil,'11111_4');    treenode2:=addnode(treeview1,treenode1,'22222_1'); addnode(treeview1,treenode1,'22222_2'); addnode(treeview1,treenode1,'22222_3'); addnode(treeview1,treenode1,'22222_4');    treenode1:=addnode(treeview1,treenode2,'33333_1'); addnode(treeview1,treenode2,'33333_2'); addnode(treeview1,treenode2,'33333_3'); addnode(treeview1,treenode2,'33333_4');    treenode2:=addnode(treeview1,treenode1,'4444_1'); addnode(treeview1,treenode1,'44444_2'); addnode(treeview1,treenode1,'44444_3'); addnode(treeview1,treenode1,'44444_4');    addnode(treeview1,treenode2,'55555_1'); addnode(treeview1,treenode2,'55555_2'); addnode(treeview1,treenode2,'55555_3'); addnode(treeview1,treenode2,'55555_4'); end;    我想您利用上述的方法，可以实现n层的樹狀結構!

可否請問一下： TTreenode是什麼元件，我怎麼找不到