如何把一个整型变量的值贼给TreeView.items.item.data
如何把treevieew.items.item.data赋值给一个整型变量
DATA是一个指针类型。
如何把treevieew.items.item.data赋值给一个整型变量
DATA是一个指针类型。
解决方案 »
- ★★happy birthday to lw549
- 让DLL文件同时返回两个string类型的值,有什么好的方法.请大虾们指教一二.
- 各位大虾帮忙看看,为什么SQL种只能存储一张图片啊?
- 怎样做异形组件
- 求FastReport大批量打印时生成打印文件巨大和传输速度慢的解决方案
- 我想要在界面设计上加深一下自己的能力...谁能给我点建议呢~!!!
- 看看INTEBASE中这条SQL语句出错在什么地方? 每次都是FROM错!
- 有笔记本的朋友
- vb问题,大家帮忙
- 在DELPHI中在插入数据时,怎么将当前的数据拷贝到下一个新记录上。在FOXPRO中是用SET CARRY ON 命令,不知在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)^; //读