如何把一个整型变量的值贼给TreeView.items.item.data
如何把treevieew.items.item.data赋值给一个整型变量
DATA是一个指针类型。
如何把treevieew.items.item.data赋值给一个整型变量
DATA是一个指针类型。
解决方案 »
- ClientDataSet1加载数据,统计事件错误:ClientDataSet1: Dataset not in edit or insert mode.
- 求解Indy的小问题!100分!
- 20分问题。在查询页面上如何实现自动查询并分析结果
- 关于combobox,一个简单的问题,
- 怎么让DBGridEh从下拉列表选取值之后将数据提交到数据库中?
- 关于COM的高难度问题
- 在DELPHI中怎么用SendMessage函数得到某一句柄中的内容!!!!
- 哪位老兄帮帮我!!!
- TCP/IP通讯过程(请参与)
- 如何实现delphi隐藏访问一个地址?
- 大家看看这个问题怎样做?
- 怎样让一个MDI窗体响应一个KeyDown事件
//1.字符串
procedure TForm1.Button1Click(Sender: TObject);
var
//定义
p_data:pstring;
begin
//添加入TreeView
new(p_data);
p_data^:='test';
treeview1.Items.AddObject(nil,'test',p_data);
//取出数据
Edit1.text:=pstring(treeview1.Items[0].Data)^;
//释放p_data
if p_data<> nil then Dispose(p_data);
end;
//2.整数
procedure TForm1.Button2Click(Sender: TObject);
var
//定义
p_data:pinteger;
begin
//添加入TreeView
new(p_data);
p_data^:=111; //在这里赋值,知道吧
treeview1.Items.AddObject(nil,'test',p_data);
//取出数据
Edit1.text:=inttostr(pinteger(treeview1.Items[0].Data)^); //在这里赋值,不用我多说了吧
//释放p_data
if p_data<> nil then Dispose(p_data);
end;
Sour: Pointer;
Dest: Pointer;
BordID: String;
begin
Sour:= pChar($FEC71);
Dest:= @BordID;
End;
i:integer;i:=1
treeview1.Items.AddObject(nil,'test',pointer(i)); //写i:=integer(treeview1.Items[0].Data)^; //读