Question

对于Web框架，我第一次尝试使用匿名方法，并遇到内存管理问题。

这个内存泄漏（Delphi 2009）如何解决？

泄漏消息是：

13 - 20字节：Project27 $ ActRec x 1

program Project27;

type
  TTestProc = reference to procedure;

  procedure CallMe(Proc: TTestProc);
  begin
  end;

begin
  CallMe(procedure begin end);

  ReportMemoryLeaksOnShutdown := True;
end.

无论在开始和结束之间有多少匿名方法，都会出现相同的泄漏消息“Project27 $ ActRec x 1”，我猜泄漏是针对TTestProc类型的，而不是单个匿名过程

program Project27;

type
  TTestProc = reference to procedure;

  procedure CallMe(Proc: TTestProc);
  begin
  end;

begin

  ReportMemoryLeaksOnShutdown := True;

  CallMe(procedure begin end);

  CallMe(procedure var A: Integer; begin A := 42 ; end);

end.

Answer 1

当您在过程或函数中声明匿名方法时，当该例程超出范围时，它会被清除。（这是过于简单化，但它对当前的讨论来说已经足够了。）问题在于DPR的主要例程并没有“超出范围”。相反，Delphi编译器在它的末尾插入一个隐藏的调用System.Halt，它永远不会返回。

因此，如果您这样写，那么您将获得内存泄漏通知。您可以通过将匿名方法创建放在正常退出的例程中来修复它，如下所示：

program Project27;

type
  TTestProc = reference to procedure;

  procedure CallMe(Proc: TTestProc);
  begin
  end;

  procedure Test;
  begin
    CallMe(procedure begin end);
  end;

begin
  Test;
  ReportMemoryLeaksOnShutdown := True;
end.

Answer 2

我想这是因为您正在使用.dpr文件中的主begin..end.块。当 FastMM4 检查内存时，begin..end.范围内创建的隐藏内存结构不会被释放，因为它尚未超出范围。

如果将匿名方法放在此主begin..end.块之外，则没有内存泄漏。

我的建议是避免在.dpr文件中放入一些代码 - 大部分时间都是错误的。 IDE不喜欢这样。为您自己的代码使用单独的单元，并单独保留.dpr内容。：）

项目中的匿名方法泄漏内存

2 个答案: