社区
Delphi
帖子详情
TTreeNode的Data属性是不是可以用来保存附加数据?如何操作?
hfrui
2003-08-18 07:19:29
我想在每个Node中保存一个Integer型的数据,如何保存和读取?
...全文
55
4
打赏
收藏
TTreeNode的Data属性是不是可以用来保存附加数据?如何操作?
我想在每个Node中保存一个Integer型的数据,如何保存和读取?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
tiexinliu
2003-08-19
打赏
举报
回复
使用递归吧:自己程序的一个过程,参考一下,存储过程查找所有父亲编号等于该节点编号的所有客户,pstr为一个指向字符串的指针。可以把TclientDatset换成任意的数据集
procedure TCustomerRelationFrm.CreateSubTree_all(FNodeName: string; Node: TreeNode = nil);
var
mLocalName: string;
TreeNode: TTreeNode;
Ads_Tmp: TClientDataset;
p:pstr;
begin
ADS_Tmp := Tclientdataset.Create(Self);
ADS_Tmp.RemoteServer:=mainfrm.SocketConnection1;
ADS_Tmp.ProviderName:='datasetprovider3';
with ADS_Tmp do
begin
Close;
CommandText :='QUERY_customer_By_Parent_No_sec '+''''+FNodeName+''''+','+''''+userid+'''';;
//SELF.Memo1.Lines.Add(commandtext);
Open;
First;
while not Eof do
begin
mLocalName := FieldbyName('ID').Asstring;
new(p);
p^:=mlocalName;
TreeNode :=self.tv_zb.Items.AddChildObject(Node, FieldByName('Name').AsString,p);
CreateSubTree(mLocalName, TreeNode);
Next;
end;
end;
ADS_Tmp.Free;
end;
Cipherliu
2003-08-18
打赏
举报
回复
要注意,DATA是一个指针,只能存放地址.Delphi中对象就是指向对象的指针,所以可以直接存放.
销毁树时要注意释放内存.
hfrui
2003-08-18
打赏
举报
回复
谢谢
Spqk005
2003-08-18
打赏
举报
回复
可以
DATA存一下指针类型的变量
你可以定义一个类
如
TCusInfo=Class
custNO:integer;
custName:String;
end;
然后定义它的实例 这样就可以把实例指针给DATA
你就可以存取INTEGER数据了
[原创]delphi中自定义t
treenode
存储额外
数据
(源码+exe)
对于ttreeview,在节点里要存储额外
数据
,一般都是使用node的
data
指针。该例子演示的是另外一个思路,通过自定义节点类来实现存储额外
数据
。节点类当然也可以是不同的类。
C++Builder下TTreeView 编程
1、支持任意添加、修改、删除节点信息 2、支持节点间的任意拖曳 3、支持对
操作
结果的
保存
4、提供了生产树的方法 附:执行程序和源代码
快速创建树的方法 (抛弃拙劣的
数据
库结构和算法)
1、现在很多人都使用“父—子结构+递归算法”来显示树型的层次结构,但是不得不说这是一种非常拙劣的方式,下面给大家一种简单方便的
数据
结构和算法,快速显示树型的层次结构:2、
数据
库结构例如表“国家”可以是...
有选择框的树型视图treeview组件checktreeview(有实例)
function IsChecked(Node :T
TreeNode
) :Boolean;//返回指定的节点是否被选中。 procedure SetChecked(Node :T
TreeNode
; Checked :Boolean);//设置指定节点是否选中 procedure SetChildState(Node:T
TreeNode
;State:...
DELPHI TXT 树文档 管理器
function Get_node_path(node: T
TreeNode
): string; function ExtractTreeViewFileName(RootPath: string; TreeView: TTreeView): string; /// /// Node.Selected := true; Node.Focused := true; /// /// /// ...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章