在Delphi XE中,以下代码将导致内存泄漏：
@H_404_2@procedure TForm1.Button1Click(Sender: TObject);
var P,B: TProc;
begin
B := procedure
begin
end;
P := procedure
begin
B;
end;
end;
运行代码
@H_404_2@ReportMemoryLeaksOnShutdown := True;和内存管理器提示：
@H_404_2@21-28 bytes: TForm1.Button1Click$ActRec x 1解决方法
这是编译器中的一个错误(据我所知).我在Embarcadero的质量中心打开了QC83259.
您可以通过在例程中创建匿名过程来解决此错误.以下代码不会泄漏.
@H_404_2@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;