Delphi 发布接口指针

Question

我在 Delphi 的接口上苦苦挣扎。这个问题可能是微不足道的，但我是德尔福的新手，所以请原谅。

我有一个带有自定义节点的 TreeView，它拥有一个对象接口（本质上，就像这里建议的那样：Storing interface pointer inside tree view nodes）。

问题是，一旦我删除了一个节点（为了重绘树视图）并将接口变量设置为 nil（由于某种我还没有完全理解的原因，释放不会与接口有关），最奇怪的事情就会发生：

在我的对象中，它包含一个列表、一个整数和一个字符串变量，字符串和列表将设置为空，而整数保持不变。

我无法解释。有没有人知道解决方法，或者这种行为的可能原因？顺便说一句，我使用的是 Delphi 10.2 Tokyo。

这是我相当不起眼的销毁方法：

myNode.destroy;
begin
  intf:= nil;// intf holds the interface to the object
end;

编辑：这是我的代码的简化版本：

我指的对象：（我有几个类似的类，看起来像obj，但略有不同，不知道接口中会存储哪一个，但都共享这些变量）

Obj = class(InterfacedObject, IMyinterface)
  count: integer;  //this remains the same
  children: array of ChildObj;  //this will be emptied
  name: string;  //this will be set to ''
  procedure addChild;
  procedure IMyInterface.add = addChild;
end;

我的自定义树节点：

MyNode = class(TTreeNode)
  Intf: IMyinterface;
  destructor destroy; override;
end;

在我的班级里面管理着 TreeView：

MyForm.ReloadTree;
begin
  if myTreeView.Items.Count > 0 then
  begin
    myTreeView.Items.Clear;
  end
  for I:= 0 to RootObj.Count-1 do
  begin
    myTreeView.Items.AddChild(MyTreeview.Items[0], RootObj.Children[i].name);
    (myTreeView.Items[0][i] as MyNode).Intf := Intf(RootObj.Children[i]);
    //I will proceed iterating over all children and their children, doing 
    //the same process, a level higher in the treeView
    //...
  end;
end;

Answer 1

在我的对象中，它包含一个列表、一个整数和一个字符串变量，字符串和列表将被设置为空，而整数保持不变。

这是完全正常的行为。字符串和接口是编译器管理的类型。整数不是。当一个对象被破坏时，编译器管理的数据成员会根据需要自动释放，在字符串和接口的情况下，这涉及到将指向其引用数据的指针归零。包含对象本身并未完全清零，因此非托管类型（如整数）不会在内存中被覆盖。

现在，话虽如此，我在您的ReloadTree() 程序中发现了一些错误。

1. 您的for 循环超出了RootObj.Children[] 列表的上限。

2. 调用AddChild()时，第二个参数是string。您在该参数中传递RootObj.Children[i]。但是，在下一个语句中，您在分配 MyNode.Intf 字段时将相同的 RootObj.Children[i] 值类型转换到接口。 string 不是接口。那么，RootObj.Children[] 究竟包含什么 - 字符串或接口？

3. 分配MyNode.Intf 字段时，您始终访问的是TreeView 中的第一个节点，而不是新添加的节点。