数据结构如下 ：
Tabelle erstellen [tbtree] (
[Id] [varchar] (4) sammeln nicht null,
[Kontext] [Nvarchar] (50) NULL,
[ParentID] [varchar] (4) NULL,
Einschränkung [PK_TBTREE] Primärschlüsselclustered
(
[AUSWEIS]
) Auf [primär]
) Auf [primär]
代码如下 ：
lprocedure tform1.readtree (tNode: tTreenode; fValue: String); Lvar Li: Ganzzahl; L Flist: TStringList; L Flist1: TStringList; L str: String; lbegin l qrytree.close; l qrytree.sql.clear; l qrytree.sql.add ('SELECT PARTID, ID, Kontext von TbTree'); l qrytree.sql.add ('Wo isnull (parentId,' '') = '); l qrytree.sql.add ('' ''+fvalue+'' ''); l qrytree.open; l qrytree.First; l Flist: = tstringlist.create; L flist1: = tstringlist.create; l während nicht Qrytree.eof do l begin l flist.add (trim (qrytree.fieldbyname ('Kontext'). Assstring); l flist1.add (qrytree.fieldbyname ('id'). Assstring); l qrytree.Next; leihen; l für i: = 0 bis flist.count-1 din ls ls: = flist1.strings [i]; L str: = flist.strings [i]; l snode: = treeview1.items.addchild (tnode, str); l ReadTree (Snode, s); leihen; l flist.free; L flist1.Free; leihen;