Delphi：从什么时候开始不再在 with 块的末尾释放接口引用？

Question

我最近偶然发现了一个由我编写的一些非常旧的代码引起的问题，该代码显然假设with 语句中使用的接口引用将在with-block 离开后立即释放 - 有点像隐式try-finally-block（如果我理解正确，类似于C#的using-statement）。

显然（在 Delphi 2009 中）这不是（不再是？）情况。有谁知道这是什么时候发生的？还是我的代码一开始就完全错误？

为了澄清，这里有一个简化的例子：

type
  IMyIntf = interface;
  TSomeObject = class(TInterfacedObject, IMyIntf)
  protected
    constructor Create; override; // creates some sort of context
    destructor Destroy; override; // cleans up the context created in Create
  public
    class function GetMyIntf: IMyIntf; //a factory method, calling the constructor
  end;

procedure TestIt;
begin
  DoSomething;
  with (TSomeObject.GetMyIntf) do
    begin
      DoStuff;
      DoMoreStuff;
    end; // <- expected: TSomeObject gets destroyed because its ref.count is decreased to 0
  DoSomethingElse;
end; // <- this is where TSomeObject.Destroy actually gets called

每当有人开始旧的“with 是邪恶的”论点时，这始终是我想到的一个例子，它让我继续“是的，但是......”。好像我错了……谁能确认一下？

Answer 1

Pascal/Delphi 中的with 保留字仅用于轻松访问记录或对象/类的成员（即，为了不提及记录/对象/类的名称）。它与与垃圾回收相关的 C# with 非常不同。自从records 诞生之日起，它就存在于 Pascal 语言中，以简化对许多数据成员的代码调用（当时简称为“字段”）。

总而言之，with 与垃圾收集、内存释放或对象实例销毁无关。在 with 标头处构造的对象之前可能只是在单独的代码行中初始化，它是相同的。

Answer 2

这种 WITH 行为从未改变。为了达到您的预期行为，您可以通过以下方式更改您的代码：

    procedure TestIt;
    var
       myIntf: IMyIntf; 
    begin
      DoSomething;

      myIntf := TSomeObject.GetMyIntf
      DoStuff;
      DoMoreStuff;
      myIntf := nil; // <- here is where TSomeObject.Destroy called

      DoSomethingElse;
    end; 

或者你可以在程序中这样做：

procedure TestIt;

   procedure DoAllStuff;
   var
      myIntf: IMyIntf; 
   begin
      myIntf := TSomeObject.GetMyIntf
      DoStuff;
      DoMoreStuff;
   end;  // <- here is where TSomeObject.Destroy called

begin    
  DoSomething;
  DoAllStuff;
  DoSomethingElse;
end;