zoukankan
html css js c++ java
在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;
查看全文
相关阅读:
(转)The Road to TensorFlow
(转) TensorFlow深度学习,一篇文章就够了
论文笔记之:Fully-Convolutional Siamese Networks for Object Tracking
关于 Local feature 和 Global feature 的组合
(转) 技术揭秘:海康威视PASCAL VOC2012目标检测权威评测夺冠之道
(转)一文学会用 Tensorflow 搭建神经网络
(转)TensorFlow 入门
(转)阿尔法狗是怎么用机器学习做决策的
How to Configure the Gradient Boosting Algorithm
A Gentle Introduction to the Gradient Boosting Algorithm for Machine Learning
原文地址:https://www.cnblogs.com/wjhx/p/459299.html
最新文章
【转】打造属于自己的Android Studio神器
Android ViewPager轮播图
Android Studio快捷键
(转) Deep Reinforcement Learning: Playing a Racing Game
(转)深度学习主机环境配置: Ubuntu16.04+Nvidia GTX 1080+CUDA8.0
(转)几种范数的解释 l0-Norm, l1-Norm, l2-Norm, … , l-infinity Norm
论文笔记之:A CNN Cascade for Landmark Guided Semantic Part Segmentation
论文笔记之:Deep Recurrent Q-Learning for Partially Observable MDPs
(转)WHY DEEP LEARNING IS SUDDENLY CHANGING YOUR LIFE
论文笔记之:Deep Attention Recurrent Q-Network
热门文章
论文笔记之:Dueling Network Architectures for Deep Reinforcement Learning
(转) Deep learning architecture diagrams
(转)Deep Learning Research Review Week 1: Generative Adversarial Nets
(转)Markov Chain Monte Carlo
论文笔记之: Hierarchical Convolutional Features for Visual Tracking
(转) 何为机器学习
论文笔记之: Person Re-Identification by Multi-Channel Parts-Based CNN with Improved Triplet Loss Function
论文笔记之: Deep Metric Learning via Lifted Structured Feature Embedding
(转)Nuts and Bolts of Applying Deep Learning
论文笔记之:Multiple Feature Fusion via Weighted Entropy for Visual Tracking
Copyright © 2011-2022 走看看