如何将一个整型数据存放到指针中 ( 积分: 100 )

A

anon_fan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-02

• #1

我想利用Treenode.data属性存放一个整数，应该是可以实现的，请大家帮帮忙，如何转换？他们都是占用4个字节空间。

 

A

anon_fan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-02

• #2

我想利用Treenode.data属性存放一个整数，应该是可以实现的，请大家帮帮忙，如何转换？他们都是占用4个字节空间。

 

C

chuwenyong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-02

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:= 1;
TreeView1.Items[0].Data:= Pointer(i);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
i:= Integer(TreeView1.Items[0].Data);
ShowMessage(inttostr(i));
end;

 

R

raoswing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-02

• #4

//先定义一个记录型指针
PANode=^TANode

type
TANode = record
NodeData:Integer;
//...其他需要的信息
end;
//再声明一个变量
var
PNodeANode;

//再在树结点上加入就行了
new(PNode);
PNode.NodeData:=123;
YourTree.Items.AddObject(nil,'指针结点',PNode);
//访问就可以用Treenode.data来读出

 

A

anon_fan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-02

• #5

chuwenyong 你的答案是对的，我试过了，谢谢！
好像把Pointer改成Ptr也可以。
raoswing 的就是答非所问了，我就不想用结构体，搞得那么复杂。不过还是谢谢你了。

 

A

anon_fan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-02

• #6

多人接受答案了。