Delphi Android 内存泄漏（或其他减速）

Question

我正在打开一个新表单。每次打开它都会变慢。我尝试了 FormClose 事件 FreeAndnil、Free、Release、DisposeOf 但不是解决方案。我添加了一个待机计时器：

Button1第一次点击，Form 2后显示0,18秒

Button1 秒点击，Form 2 后显示 0,20 秒

Button1 第三次点击，Form 2 后显示 0,23 秒

Button1第四次点击，Form 2后显示0,28秒 . . .

Button1 xxxx 点击，Form 2 后显示 6,30 秒

     //Form1 Button1 Click 
 Application.CreateForm(TFrom2,Form2);
  Form2.Show;


//Form2 OnCLose
//i try 
//FreeAndNil, Free, Relsease,DisposeOf ...

如何解决这个问题？ 示例项目来源： https://www.dropbox.com/s/yeqpizr6rfo6254/LeakProblem.rar

尝试20-30次点击“Form2显示按钮” 请参阅备忘录中的增加等待时间。

Answer 1

好吧，我对你的项目做了一些改动，然后让它工作了，但是你做的很多事情与我通常的编程方式不同。

首先，在移动设备中处理表单时，您希望使用 .DisposeOf，而不是 FreeAndNil。见this link，特别是：

有些场景需要正确执行析构代码 离开，不管可能有其他未决的事实 对象的引用。 [...] 新编译器引入了一个 dispose 模式：MyObject.DisposeOf;

我注意到的另一件事是您的 Unit3 创建了 Form4。但是你让 Unit4 访问 Unit3 中的备忘录。我希望这只是为了演示目的，因为我不认为这种设计是值得推荐的。

所以，我是如何让它工作的简短总结：我在 Form4 中设置了一个 TNotifyEvent 用于完成它：

procedure TForm4.Button1Click(Sender: TObject);
begin
  if assigned(FOnCloseEvent) then
    FOnCloseEvent(Self);
end;

在 Uni3 中，我在创建表单时设置了一个处理程序：

  MyForm.OnCloseEvent := CloseEvent;

事件触发此代码：

procedure TForm3.CloseEvent(Sender: TObject);
begin
  if assigned(MyForm) then
    MyForm.DisposeOf;
end;

我还将MyForm 设为TForm3 的私有对象，而不是局部变量。

通过这些更改，我可以根据需要点击显示和关闭，并且表单将始终快速显示。如果有更好的方法，请告诉我！