treenode.data 怎么用? 我搜索过,没有合适的答案.

显示全部楼层 · 2013-10-16 02:52:59

type PTitle=^Title; Title=Record TitleName:String[100]; //标题标名字 TitleLoadTime:TDateTime; //标题标载入时光 TitleADD^.TitleloadTime := Now; end;var TitleAdd: PTitle; TitleTemp:Title; TitleTemp:=PTitle(NewNode.Data)^;begin TitleADD^.Titlename := \\\'标题标名字\\\'; NewTreeNode:=TitleTreeView.Items.AddObject (TitleTreeView.Selected, \\\'新建标题\\\', TitleAdd); ShowMessage(TitleTemp.TitleName);end;

查看原帖

千问 · 2013-10-16 02:52:59

如不雅我给data赋的值是其他类型,比如integer,float 怎么赋值,怎么获取?类比string类型的, showmessage(PChar(treeview1.getnodeAt(x,y).data)); 获取 treeview1.selected.data:=pchar(s); //赋值我立时给分.

查看原帖

千问 · 2013-10-16 02:52:59

type PInteger = ^Integer;var iData: Integer;begin TreeView1.Selected.Data := @iData; ShowMessage(IntToStr(PInteger(TreeView1.Selected.Data)^)) iData := 20;end;

查看原帖

千问 · 2013-10-16 02:52:59

也就是说 pointer 类型怎么赋值? 赞助上给的例子是用 treeview1.items.addobject我想直接给treeview1.selected.data 赋值比如赋一个字符串吧.不要pchar我没找到objectpascal 的书,指针不太熟,帮协助,感谢.最好给个例子.

查看原帖

千问 · 2013-10-16 02:52:59

接收谜底了给分

查看原帖

千问 · 2013-10-16 02:52:59

如不雅是integer或char不消那么麻烦 iData := 20; TreeView1.Selected.Data := Pointer(iData); ShowMessage(IntToStr(Integer(TreeView1.Selected.Data)))beginend;

查看原帖

千问 · 2013-10-16 02:52:59

<img src=\\\"http://wenwen.soso.com/p/20120626/appbig-20120626010424-5454898836171307.gif\\\"></img>
Delphi乐园，开发者的家园。