Delphi:为什么会产生内存泄漏？

Question

为什么不自动释放TDemo.TBuilder并产生内存泄漏？应该自动释放TDemo.TBuilder，因为这是一个基于IInterface的TInterfacedObject对象

type
  TDemo = class
    public type
      TBuilder = class(TInterfacedObject)
        public
          function Generate: TDemo;
      end;
    public
      class procedure Using;
  end;

implementation

function TDemo.TBuilder.Generate: TDemo;
begin
  Result := TDemo.Create;
  // on finish this method, TDemo.TBuilder should be freed ! 
end;

class procedure TDemo.Using;
begin
  with TDemo.TBuilder.Create.Generate do try
    // use TDemo
    
  finally
    Free;
  end;
end;

Answer 1

您有内存泄漏，因为TBuilder.Create返回对象引用，并且由于它作为中间引用使用，所以它从未被分配给接口引用，并且它的引用计数机制从未被正确初始化。

要解决这个问题，您需要声明IBuilder接口，并使用类函数返回该接口来构造这样的中间对象。

  TDemo = class
  public type
    IBuilder = interface
      function Generate: TDemo;
    end;

    TBuilder = class(TInterfacedObject, IBuilder)
    public
      function Generate: TDemo;
      class function New: IBuilder;
    end;
  public
    class procedure Using;
  end;


class function TDemo.TBuilder.New: IBuilder;
begin
  Result := TBuilder.Create;
end;

  with TDemo.TBuilder.New.Generate do
  ...