我可以将未知接口保存到指针吗？
例如,我有一个未知的接口,并希望将其保存到TreeNode数据？
var X : Inknown;
要保存：
.... Node:=TreeView1.Items.Add; //Node.data:=x; //compiler won't allow this Node.data:=@x; ...
要得到 ：
... var //X:=Node.data; //compiler won't allow this too Pointer(X):=Node.data; //an exception caught ...
解决方法
接口是指针,因此您可以按原样存储它(不要使用@运算符).但是,为了确保接口的生命周期,只要节点引用它,就必须手动递增/递减其引用计数,例如：
Node := TreeView1.Items.Add; Node.Data := Pointer(x); x._AddRef;
x := IUnknown(Node.Data);
procedure TMyForm.TreeView1Deletion(Sender: TObject; Node: TTreeNode); begin IUnknown(Node.Data)._Release; end;