会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
龙少爷
不谋一世者,不足谋一时;不谋全局者,不足谋一域
在Delphi中的TreeView中保存多个数据
使用Delphi几年来,居然不知道TreeView中可以保存多个数据,帮助中的一点代码
使用Delphi几年后,居然不知道还可以这么用,惭愧呀
type
PMyRec
=
^
TMyRec;
TMyRec
=
record
FName:
string
;
LName:
string
;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MyRecPtr: PMyRec;
TreeViewIndex: LongInt;
begin
New(MyRecPtr);
MyRecPtr
^
.FName :
=
Edit1.Text;
MyRecPtr
^
.LName :
=
Edit2.Text;
TreeViewIndex :
=
StrToInt(Edit3.Text);
with TreeView1
do
begin
if
Items.Count
=
0
then
Items.AddObject(nil,
'
Item
'
+
IntToStr(TreeViewIndex), MyRecPtr)
else
if
(TreeViewIndex
<
Items.Count) and (TreeViewIndex
>=
0
) then
Items.AddObject(Items[TreeViewIndex],
'
Item
'
+
IntToStr(TreeViewIndex), MyRecPtr);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption :
=
PMyRec(TreeView1.Selected.Data)
^
.FName
+
'
'
+
PMyRec(TreeView1.Selected.Data)
^
.LName;
end;
posted on
2006-07-25 15:24
龙少爷
阅读(
1470
) 评论(
1
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
导航
博客园
首页
新随笔
联系
订阅
管理
公告