在TlistItem中用Data属性保存数据的问题

[lwjwj1314]

先定义一个结构：
TBedID =class(TObject)
public
bedid:integer;
end;
PBedID = ^TBedID;
然后在一个过程中：
var
objBedID:TBedID;
begin
while …… do
begin
tl := bedview.Items.Add;
tl.Caption :='…';
objBedId:=TBedID.Create;
objBedId.bedid:= bedid;
tl.Data:=@p_bedid;
end;
end;
在另一函数中访问：
selected:=PBedID(bedview.Items.Item[bedview.ItemIndex].Data).bedid;
结果是个随机的整数。

请问，如何解决？

顺便问一下，像第一函数中objBedId申请的堆空间如何释放？

[ahjoe]

TBedID本身已经是一个指针了，不需要再用PBedID

改:

TBedID =class(TObject)
public
bedid:integer;
end;
然后在一个过程中：
var
objBedID: TBedID;//这里将TBedID改为PBedID
begin
while …… do
begin
tl := bedview.Items.Add;
tl.Caption :='…';
objBedId:=TBedID.Create;
objBedId.bedid:= bedid;
tl.Data:=objBedId;//这里将p_bedid改为objBedId
end;
end;
在另一函数中访问：
selected:=TBedID(bedview.Items.Item[bedview.ItemIndex].Data).bedid;
结果是个随机的整数。

[ahjoe]

注释写错了

objBedID: TBedID;//这里将PBedID改为TBedID

[lwjwj1314]

多谢。
我想请问一下，这个对象所申请的堆空间该如何回收呢？

[lwjwj1314]

up