数据结构如下:
テーブルを作成[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;貸す;