delphi – 内嵌泄漏发生在嵌套匿名方法中

在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

解决方法

这是编译器中的一个错误(据我所知).我在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;

相关文章

ffmpeg 是一套强大的开源的多媒体库 一般都是用 c/c++ 调用, 抽空研究了一下该库的最新版 ,把...
32位CPU所含有的寄存器有:4个数据寄存器(EAX、EBX、ECX和EDX)2个变址和指针寄存器(ESI和EDI) 2个指针寄...
1 mov dst, src dst是目的操作数,src是源操作数,指令实现的功能是:将源操作数送到目的操作数中,即:...
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProcess因为使用复杂...
API原型: Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (By...