内存泄漏发生在嵌套的匿名方法中

Question

在Delphi XE中,以下代码将导致内存泄漏:

procedure TForm1.Button1Click(Sender: TObject);
var P, B: TProc;
begin
  B := procedure
       begin
       end;

  P := procedure
       begin
         B;
       end;
end;

运行代码

ReportMemoryLeaksOnShutdown := True;

和内存管理器提示:

21-28 bytes: TForm1.Button1Click$ActRec x 1

Answer 1

这是由于匿名方法的工作方式.匿名方法是作为TInterfacedObject后代实现的,如果在同一例程中有多个,它们最终会成为同一对象的两个方法. 它使用接口进行引用计数,因此您不会最终泄漏对象.但是,如果匿名方法引用自身,则最终会抛弃引用计数并导致内存泄漏.你在这里看到的是这两件事的结合.

Answer 2

这是编译器中的一个错误(据我所知).我在Embarcadero的质量中心打开了QC83259.

您可以通过在例程中创建匿名过程来解决此错误.以下代码不会泄漏.

procedure TForm1.Button1Click(Sender: TObject);
var P, B: TProc;
begin
  B := GetMethod(); //Note, the "()" are necessary in this situation.
  P := procedure
  begin
    B;
  end;
end;


function TForm1.GetMethod: TProc;
begin
  Result := procedure
  begin
  end;
end;