delphi - Delphi中使用SetLength发生内存不足异常时如何释放内存

Question

我有一段Delphi代码

var
  a: array of array of array of integer;
begin
  try
   SetLength(a, 100000, 100000, 10000); // out of memory here
   doStuffs(a); 
  except
   a = nil; // try to free the memory 
  end;
end;

上面的代码尝试分配大量内存，内存不足将被捕获。 a=nil 将被执行，但内存不会被释放。

内存不足的情况下有没有办法释放内存？

我尝试了 SetLength(a, 0, 0, 0) 和 Finalize(a)，但两者都不起作用。

Answer 1

一般来说，内存不足错误是无法恢复的。此时堆很可能已损坏。适当的响应是终止该进程。

在此特定情况下，分配由System 单元中的DynArraySetLength 执行。这会执行重复分配。仅当 DynArraySetLength 的最后一个 Action 才是实际分配的返回值，即上面代码中的 a 。如果 DynArraySetLength 中发生错误，则运行时不会进行清理。这意味着如果发生故障，分配的任何内存都会泄漏并且无法恢复。您无法引用它来释放它。

您可能认为 DynArraySetLength 应该做更多的事情来整理。然而，它的做法是有道理的。由于内存不足的情况总是会导致堆损坏，尝试清理只会延长痛苦。一旦堆死了，尝试释放内存就没有意义了。