接口「遞歸」和引用計數

我有一個接口的小問題。這裏是僞代碼：接口「遞歸」和引用計數

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