数据结构如下 ：
Buat tabel [tbtree] (
[Id] [varchar] (4) rekan bukan nol,
[Konteks] [nvarchar] (50) null,
[Parentid] [varchar] (4) nol,
Kendala [PK_TBTREE] Kunci utama dikelompokkan
(
[PENGENAL]
) Pada [primer]
) Pada [primer]
代码如下 ：
lprocedure tform1.readtree (tnode: ttreenode; fvalue: string); Lvar Li: Integer; l List: TStringList; l Flist1: TStringList; l str: string; lbegin l qrytree.close; l qrytree.sql.clear; l qrytree.sql.add ('Pilih ParentID, ID, konteks dari tbtree'); l qrytree.sql.add ('di mana isnull (parentid,' '') = '); l qrytree.sql.add ('' '' '+fvalue+' '' '); l qrytree.open; l qrytree.first; l Flist: = tStringList.create; l flist1: = tStringList.create; l Sementara tidak qrytree.eof do l mulai l flist.add (trim (qrytree.fieldbyname ('konteks'). astring)); l flist1.add (qrytree.fieldbyname ('id'). astring); l qrytree.next; meminjamkan; l untuk i: = 0 to flist.count-1 do l mulai ls: = flist1.strings [i]; l str: = flist.strings [i]; l snode: = treeview1.items.addchild (tnode, str); l Readtree (Snode, S); meminjamkan; l Flist.Free; l flist1. bebas; meminjamkan;