接口“递归”和引用计数

我有一个接口的小问题。这里是伪代码：接口“递归”和引用计数

type 
    Interface1 = interface 
    end; 

    Interface2 = interface 
    end; 

    TParentClass = class(TInterfacedObject, Interface1) 
    private 
    fChild : Interface2; 
    public 
    procedure AddChild(aChild : Interface2); 
    end; 

    TChildClass = class(TInterfacedObject, Interface2) 
    private 
    fParent : Interface2; 
    public 
    constructor Create(aPArent : Interface1); 
    end;

任何人都可以看到缺陷吗？我需要孩子参考其父母，但引用计数在这种情况下不起作用。如果我创建一个ParentClass实例并添加一个子项，那么父类永远不会被释放。我明白为什么。我如何绕过它？

来源

2008-10-05 Steve

请参阅http://stackoverflow.com/questions/487311/how-to-implement-reference-counted-objects-in-delphi#487387，以获得有关使用Delphi界面的循环引用问题的完整答案。 – 2012-02-01 17:28:15

使用真正的GC代替引用计数。 – 2008-11-24 18:40:25

引用计数引用有两个语义：它充当所有权的份额以及导航对象图的方式。

通常，您不需要这两种语义的在引用图的一个循环中的所有链接上。也许只有父母拥有孩子，而不是相反？如果是这样的话，就可以让孩子引用到父薄弱环节，通过将它们存储为指针，就像这样：

TChildClass = class(TInterfacedObject, Interface2) 
private 
    fParent : Pointer; 
    function GetParent: Interface1; 
public 
    constructor Create(aPArent : Interface1); 
    property Parent: Interface1 read GetParent; 
end; 

function TChildClass.GetParent: Interface1; 
begin 
    Result := Interface1(fParent); 
end; 

constructor TChildClass.Create(AParent: Interface1); 
begin 
    fParent := Pointer(AParent); 
end;

这是安全的，如果实例的树的根是保证在某个地方保持活力，也就是说，你并不仅仅依靠保持对树的一个分支的引用，而仍然能够浏览整个树的分支。

来源

2008-10-05 10:23:13