数据结构如下：
テーブルを作成[tbtree]（
[id] [varchar]（4）nullではなく照合します、
[コンテキスト] [nvarchar]（50）null、
[dartid] [varchar]（4）null、
制約[pk_tbtree]プライマリキークラスター
（
[ID]
）[プライマリ]
）[プライマリ]
代码如下：
lprocedure tform1.readtree（tnode：ttreenode; fvalue：string）; lvar li：整数; L FLIST：TSTRINGLIST; L Flist1：TStringList; L STR：文字列; lbegin l qrytree.close; l qrytree.sql.clear; l qrytree.sql.add（ 'select parentid、id、context from tbtree'）; l qrytree.sql.add（ 'where isnull（dantid、' '' '' '' = '）; l qrytree.sql.add（ '' ''+fvalue+'' ''）; l qrytree.open; l qrytre.first; L FLIST：= TSTRINGLIST.CREATE; L Flist1：= tstringlist.create; l qrytree.eof do l begin l begin l flist.add（trim（qrytree.fieldbyname（ 'context'）。asstring））; l Flist1.add（qrytree.fieldbyname（ 'id'）。asstring）; l qrytree.next;貸す; l for i：= 0からflist.count-1 do l begin ls：= flist1.strings [i]; l str：= flist.strings [i]; lスノード：= treeview1.items.addchild（tnode、str）; l readtree（snode、s）;貸す; L Flist.Free; L Flist1.Free;貸す;