數據結構如下：
創建表[tbtree]（
[id] [varchar]（4）整理不為null，
[context] [nvarchar]（50）null，
[parendid] [varchar]（4）null，
約束[pk_tbtree]主鍵群集
（（
[ID]
）在[初級]
）在[初級]
代碼如下：
lprocedure tform1.ReadTree（tnode：ttreenode; fvalue：string）; lvar li：整數； l flist：tstringlist; l flist1：tstringlist; l str：string; lbegin l qrytree.close; l qrytree.sql.clear; l qrytree.sql.add（'select parentid，id，tbtree中的上下文'）; l qrytree.sql.add（'where isnull（parendId，'''''''）='）; l qrytree.sql.add（''''+fvalue+''''）; l qrytree.open; l qrytree.first; l flist：= tstringlist.create; l flist1：= tstringlist.create; l d qrytree.eof do l oging l flist.add（trim（qrytree.fieldbyname（'context'）。asstring））; l flist1.add（qrytree.fieldbyname（'id'）。asstring）; l qrytree.next; l結束； l對於i：= 0 to flist.count-1 do l begin ls ls：= flist1.strings [i]; l str：= flist.strings [i]; l snode：= treeview1.items.addchild（tnode，str）; l readtree（Snode，s）; l結束； l flist。 l flist1.free;借;