帮助里有很详细的说明和例子啊。我这里没有装Delphi所以没法帮你查。
解决方案 »
- richviewedit插入图片函数问题
- 求将EXCEL导进到access中和将access导出到EXCEL的源码?问题搞了几天没搞出来!!1
- 请问如何在一个特定的纸张上完成打印???`
- 100分求一个在NT服务中启动线程的例子!成功马上给分!!
- 如何声明
- 求教:联结oracle世,用错误的用户名和密码登录数据库,为什么不按照例外中的错误提示进行显示,而显示英文的"invalid username/password
- 急需一个多层数据库开发的例子,朋友们帮帮忙,谢谢!
- 一个新网站欢迎大家提意见http://www.hrbhome.net
- 我想在程序中播放1秒钟长的wav文件用什么方法好些?
- 加密的问题
- 问:请讲解Owner 和 Parent的详细区别,老达摩 和 nofog 有空也来说说
- 有没有简单的移动文件的语句?
01([0])
0101([1])
0102([2])
02([3])
0201([4])
0202([5])
Edit2.Text := IntToStr(TreeView1.Selected.Index + 1);//节点
//数据集解构成树****************************************************************
//==============================================================================
procedure DataSetToTreeView(DataSet: TDataSet; var TreeView: TTreeView; NodeRoot: string);
var Nodes: array of TTreeNode;
Strs: array of string;
i: integer;
begin
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
with DataSet do
begin
Close;
Open;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SetLength(Nodes, FieldCount+1);
SetLength(Strs, FieldCount);
Nodes[0] := TreeView.Items.AddChild(nil, NodeRoot);
for i:=Low(Strs) to High(Strs) do Strs[i] := #255;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
First;
while not Eof do
begin
for i:=Low(Strs) to High(Strs) do
if Strs[i]<>Fields[i].AsString then
begin
Strs[i] := Fields[i].AsString;
Nodes[i+1] := TreeView.Items.AddChild(Nodes[i],Fields[i].AsString);
end;
Next;
end;
Close;
end;
end;
可在结点的DATA属性里存信息
确定该结点是第几层?
可通过结点的LEVEL得到
第几个结点?
item[i]
[email protected]