Delphi:框架的TList问题

Question

我在TScrollBox中包含许多帧(通常是25帧)的接口出现了问题。

有两个问题，我希望其中一个是另一个.

背景：

当应用程序启动时，我创建了25个框架，每个框架都包含大约的内容。20个控件，然后使用默认信息填充这些控件。然后，用户可以单击一个控件，将搜索限制在信息子集上，此时我可以释放并重新创建框架(因为搜索可能返回< 25条记录)。

问题：

如果在初始搜索之后退出应用程序，则需要大约。5秒后返回德尔福。在第二次搜索之后(并释放/重新创建帧)，它需要大约。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作为所有者参数。通过零代替，以防止业主试图释放框架。

另外，不要喜欢你的ClearFrames例程的样子。试一试：

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

Answer 2

如果你想知道你的应用程序为什么要花这么长时间来做一些事情，试着分析一下它。尝试对您的程序运行取样剖面仪。该帮助文件解释了如何将分析限制在应用程序的某个特定部分，您可以使用该部分在清除或创建部分时获得采样结果。这应该会告诉你你的大部分时间都花在了哪里，并从中得到了很多猜测。