delphi – TGUID到TTreeNode.Data？

发布时间：2020-12-15 09:38:58 所属栏目：大数据来源：网络整理

导读：我希望通过将TGUID放入其中来使用TTreeNode的Data(指针)属性. 有人知道如何实现这个目标吗？这是代码的一部分,可能会帮助你们了解我正在尝试做的事情. if Assigned(trNode) thenbegin trNode := tvMain.Items.Add(trNode,dmMain.qryTreeView.FieldByName('S

我希望通过将TGUID放入其中来使用TTreeNode的Data(指针)属性.
有人知道如何实现这个目标吗？

这是代码的一部分,可能会帮助你们了解我正在尝试做的事情.

if Assigned(trNode) then
begin
  trNode := tvMain.Items.Add(trNode,dmMain.qryTreeView.FieldByName('SomeColumn').Text);
  gID := StringToGUID(dmMain.qryTreeView.FieldByName('ID').Text);
  trNode.Data := //how do I do this?

解决方法

TGUID是记录,因此动态分配它并将其地址存储到节点的数据中,例如

var gID: PGUID;
begin
  New(gID);
  gID^ := StringToGUID(...);
  trNode.Data := gID;

记得在删除节点时用Dispose释放内存,否则你会有内存泄漏！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!