【结贴】record类型

xhong · 发表于 2010-5-26 17:30:32

TProduct = record
ID: string;
  end;

var
  lProduct: TProduct;
  lRootNode, lNode: TTreeNode;
begin
  lRootNode := TreeView.Items.AddFirst(nil, '根');
  lNode := TreeView.Items.AddChildFirst(lRootNode, '第一个');
  lProduct.ID := 'first';
  lNode.Data := TObject(lProduct);

  ShowMessage(TProduct(lNode.Data).ID);
end;

报错：Incompatible types: "TObject" and "TProduct"

shangxy · 发表于 2010-5-26 17:40:30

定义一个类吧：
TProduct = class(TObject)

aboy · 发表于 2010-5-26 17:44:49

TProduct  = class(TObject)
private
   {private declarations}
public
   {public declarations}
   ID:string;
end;

shangxy · 发表于 2010-5-26 17:46:47

感谢楼上帮忙哈

xhong · 发表于 2010-5-27 08:47:03

这个是我树上的节点，如果定义类那么稍后还需要自己遍历和释放麻烦
所以才希望用record类型，不用想着释放了

zfang · 发表于 2010-5-27 09:36:34

record类型不能这么去转换。
建议楼主还是按照上面说的方式来实现。

xhong · 发表于 2010-5-27 09:44:49

delphi里可以啊，是平台不支持这个？没有其他办法了是吧，我就是不想费事创建对象然后再释放

zfang · 发表于 2010-5-27 10:09:10

不支持。

xhong · 发表于 2010-5-27 10:44:01

好，请结贴，还是写成对象，自己释放吧

		自动登录	找回密码
密码			立即注册