Delphi：框架 TList 的问题

Question

我遇到了一个问题，该界面由 TScrollBox 中的多个框架（通常为 25 个）组成。

有 2 个问题，我希望其中一个是另一个问题的结果...

背景：

当应用程序启动时，我创建 25 个帧，每个帧包含大约 1 个帧。 20 个控件，然后填充默认信息。然后，用户可以单击控件将搜索限制为信息子集，此时我可以释放并重新创建我的框架（因为搜索可能返回 <25 条记录）

问题：

如果我退出初始搜索后的应用程序大约需要5秒返回Delphi。在第二次搜索（并处理/重新创建帧）之后，大约需要花费时间。 20 秒）

虽然我可以重写应用程序以仅创建一次框架，但我想了解发生了什么。

这是我的创建例程：

procedure TMF.CreateFrame(i: Integer; var FrameBottom: Integer);
var
   NewFrame: TSF;
begin
   NewFrame := TSF.Create(Self);
   NewFrame.Name := 'SF' + IntToStr(i);
   if i = 0 then
      NewSF.Top := 8
   else
      NewSF.Top := FrameBottom + 8;
   FrameBottom := NewFrame.Top + NewFrame.Height;
   NewFrame.Parent := ScrollBox1;
   FrameList.Add(NewFrame);
end;

这是我的删除例程：

procedure TMF.ClearFrames;
var
   i: Integer;
   SF: TSF;
begin
   for i := 0 to MF.FrameList.Count -1  do
   begin
      SF := FrameList[i];
      SF.Free;
   end;
   FrameList.Clear;
end;

我缺少什么？

Answer 1

由于您通过释放正在创建的框架来控制其内存分配，因此无需在创建构造函数中提供 Self 作为所有者参数。传递 nil 来防止所有者尝试释放框架。

另外，不喜欢 ClearFrames 例程的外观。试试这个：

while FrameList.count > 0 do
begin
    TSF(Framelist[0]).free;
    Framelist.delete(0);
end;
Framelist.clear;

Answer 2

如果您想知道为什么您的应用程序需要这么长时间才能完成某些操作，请尝试对其进行分析。尝试针对您的程序运行Sampling Profiler。该帮助文件解释了如何将分析限制为仅应用程序的特定部分，您可以使用它来仅获取清理或创建部分的采样结果。这应该会向您展示您实际花费大部分时间的地方，并消除大量的猜测。