Delphi动态创建树
敬业的IT人
互联网
佚名
2008-1-4 16:56:26
数据结构如下：
CREATE TABLE [tbTree] (
[ID] [varchar] (4) COLLATE NOT NULL ,
[Context] [nvarchar] (50) NULL ,
[ParentID] [varchar] (4) NULL ,
CONSTRAINT [PK_tbTree] PRIMARY KEY CLUSTERED
(
[ID]
) >lprocedure TForm1.ReadTree(tnode:TTreeNode;Fvalue: String); lVar l i: integer; l Flist:TStringList; l Flist1:TStringList; l str:string; lbegin l qryTree.close; l qryTree.sql.clear; l qryTree.sql.add('select Parentid,id,context from tbtree'); l qryTree.sql.add('where isnull(Parentid,'''')='); l qryTree.sql.add('''' Fvalue ''''); l qryTree.Open; l qryTree.First; l Flist:=TStringList.Create; l Flist1:=TStringList.Create; l while not qryTree.eof do l begin l Flist.Add(trim(qryTree.fieldbyname('context').asstring)); l Flist1.Add(qryTree.fieldbyname('id').asstring); l qryTree.next; l end; l for i:= 0 to flist.Count-1 do l begin l s:=flist1.Strings[i]; l str:=flist.Strings[i]; l snode:=Treeview1.items.addchild(tnode,str); l ReadTree(snode,s); l end; l flist.free; l flist1.free; lend;
CREATE TABLE [tbTree] (
[ID] [varchar] (4) COLLATE NOT NULL ,
[Context] [nvarchar] (50) NULL ,
[ParentID] [varchar] (4) NULL ,
CONSTRAINT [PK_tbTree] PRIMARY KEY CLUSTERED
(
[ID]
) >lprocedure TForm1.ReadTree(tnode:TTreeNode;Fvalue: String); lVar l i: integer; l Flist:TStringList; l Flist1:TStringList; l str:string; lbegin l qryTree.close; l qryTree.sql.clear; l qryTree.sql.add('select Parentid,id,context from tbtree'); l qryTree.sql.add('where isnull(Parentid,'''')='); l qryTree.sql.add('''' Fvalue ''''); l qryTree.Open; l qryTree.First; l Flist:=TStringList.Create; l Flist1:=TStringList.Create; l while not qryTree.eof do l begin l Flist.Add(trim(qryTree.fieldbyname('context').asstring)); l Flist1.Add(qryTree.fieldbyname('id').asstring); l qryTree.next; l end; l for i:= 0 to flist.Count-1 do l begin l s:=flist1.Strings[i]; l str:=flist.Strings[i]; l snode:=Treeview1.items.addchild(tnode,str); l ReadTree(snode,s); l end; l flist.free; l flist1.free; lend;
- 最新文章
- 再谈多态--多态的应用举例：[01-04]
- Pascal精要笔记[01-04]
- DELPHI中动态获得SQLSERVER数据库名[01-04]
- 利用Delphi中的画布画树[01-04]
- WANT的心得[01-04]
- Delphi中实现界面与业务逻辑的分离[01-04]
- 相关文章
- DELPHI中动态获得SQLSERVER数据库名[01-04]
- 在Delphi中使用动态图标[01-04]
- 动态隐藏/显示窗口的标题栏（同时保持窗口的Sizeable性..[01-04]
- 动态设置系统日期格式[01-04]
- 在Delphi里调用API函数动态建立ODBC数据源。[01-04]
- 动态创建ClientDataSet的表定义[01-04]
