Hallo!
Folgendes Problem:
Bei der Verwendung dieses Quelltextes entsteht ein Speicherleck:
Delphi-Quellcode:
type
TForm1 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
Button1: TButton;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
FProc: TProc;
public
{ Public-Deklarationen }
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Func: TFunc<String>;
begin
ReportMemoryLeaksOnShutdown:=true;
Func:=
function: String
begin
Result:=Edit1.Text;
end;
Memo1.Lines.Add(Func);
FProc:=
procedure
begin
Memo1.Lines.Add(Func);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FProc;
end;
Momentan kann ich leider nicht überprüfen, ob das auch bei XE2 auftritt (meine Testversion ist gerade abgelaufen).
Gibt es eine Möglichkeit, dieses Speicherleck zu verhindern?