Application.Terminate 产生访问冲突错误 Delphi 10.3

Question

一旦创建了 TImage 动态数组，Application.Terminate() 过程就会导致访问冲突。

数组（可变长度）：

arrImages: array of TImage;

访问冲突：

Access violation at address 00405D39. Write of address 004680EC

由于这种情况仅在创建动态数组后发生，因此我尝试释放数组中的所有元素（onTmrImage 是一个全局变量，包含数组中的第一个元素数组，数组中的元素都是 GUI 上的动态 TImage 组件）：

procedure TfrmTank.procPurgeArray;
var
  I: integer;
begin
  FreeAndNil(onTmrLImage);
  for I := 1 to length(arrImages) do
  begin
    FreeAndNil(arrImages[I]);
  end;

  FreeAndNil(arrImages);

end;

然后在 onClick 事件中使用 Application.Terminate()退出按钮：

procedure TfrmTank.btnExitClick(Sender: TObject);
begin
  procPurgeArray;
  Application.Terminate;
end;

知道为什么吗是否有必要做任何事情来简单地退出应用程序？

Answer 1

freeandnil(arrImages);

这是一个错误。您不得对动态数组调用Free。您可以对对象实例调用Free。将此行代码替换为 arrImages := nil。

动态数组会自动销毁，因为它们是托管类型。

销毁图像时，您还会得到错误的数组索引。动态数组是从零开始的。您的循环应该是：

for I := 0 to High(arrImages) do
  arrImages[I].Free;
arrImages := nil;

也许创建数组的代码中也存在同样的错误。

综上所述，这段代码肯定属于析构函数。有人甚至可能会说，当您即将执行 Application.Terminate 时，这有点毫无意义。