delphi - 未使用的接口(interface)引用不会被销毁

Question

由于不小心使用 Delphi 界面，我的应用程序中存在另一个错误。当我将接口(interface)传递给忽略该参数的过程时，该实例永远不会被释放。请参阅以下简单示例:

ITest = interface
    procedure Test;
end;

Tester = class(TInterfacedObject, ITest)
public
    procedure Test;
end;

Base = class
public
    procedure UseTestOrNot(test : ITest); virtual; abstract;
end;

A = class(Base)
public
    procedure UseTestOrNot(test : ITest); override;
end;

B = class(Base)
public
    procedure UseTestOrNot(test : ITest); override;
end;

{ A }

procedure A.UseTestOrNot(test: ITest);
begin
    test.Test();
end;

{ B }

procedure B.UseTestOrNot(test: ITest);
begin
    WriteLn('No test here');
end;

// -------- Test ---------------------------------------
var
    list : TObjectList<Base>;
    x : Base;
    t : ITest;
begin
    ReportMemoryLeaksOnShutdown := true;

    list := TObjectList<Base>.Create;
    list.Add(A.Create);
    list.Add(B.Create);

    // 1 x Tester leak for each B in list:
    for x in list do
        x.UseTestOrNot(Tester.Create);

    // this is ok
    for x in list do
    begin
        t := Tester.Create;
        x.UseTestOrNot(t);
    end;

    list.Free;
end.

您能解释一下引用计数器出了什么问题吗？ 您能否提供任何最佳实践/指南(例如“永远不要在函数调用内创建接口(interface)实例[如果您不知道内部会发生什么])。

对于这个示例，我能想到的最佳解决方案是在类 Base 中编写一个模板方法，用于保存传递的测试实例并调用抽象的 DoUseTestOrNot 方法。

编辑 德尔福2010

Answer 1

<罢工> 这是bug的不同表现形式here .
我会将其添加到质量控制报告中。

这不再在 Delphi XE update 1 中重现。

--杰罗恩