： ：
إنشاء جدول [tbtree] (
[id] [varchar] (4) لا يتجمع ،
[سياق] [nvarchar] (50) NULL ،
[ParentId] [varchar] (4) NULL ،
القيد [PK_TBTREE] مفتاح الأساسي مجموعات
((
[بطاقة تعريف]
) على [الابتدائية]
) على [الابتدائية]
： ：
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 ('حدد ParentId ، id ، السياق من tbtree') ؛ l qrytree.sql.add ("أين isnull (parentid ، '' '') = ') ؛ l qrytree.sql.add ('' ''+fvalue+'' '') ؛ L Qrytree.Open ؛ l qrytree.first ؛ l flist: = tstringList.create ؛ l flist1: = tstringList.create ؛ L بينما لا Qrytree.eof do l تبدأ l flist.add (trim (qrytree.fieldbyname ('context'). assstring)) ؛ l flist1.add (qrytree.fieldbyname ('id'). assstring) ؛ l qrytree.next ؛ أعار؛ l لـ i: = 0 to flist.count-1 do l تبدأ ls: = flist1.strings [i] ؛ L str: = flist.strings [i] ؛ l snode: = treeview1.items.addchild (tnode ، str) ؛ l readtree (snode ، s) ؛ أعار؛ l flist.free ؛ l flist1.free ؛ أعار؛