在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;