如何阻止Delphi释放TArray<T>的内存？保留数组元素内存

首先明确：Delphi的TArray<SomeClass>是动态数组，存储的是类实例的指针。当局部变量data在过程结束时销毁，数组本身（存储指针的内存块）会因为引用计数归0被释放，但数组里的类实例，只要还有其他引用指向它们，就不会被销毁。你的需求是把这些类实例传递给调用方，同时允许数组对象本身被释放，核心是要让调用方持有这些类实例的引用。

下面是几种不需要重构大量代码的可行方案：

1. 将数组作为输出参数传递给调用方 #

把test改成带var或out参数的过程，让调用方的变量接收数组，这样数组的引用计数会增加，过程结束时局部变量销毁后，调用方的变量仍持有引用，数组不会被释放，元素自然保留。

示例代码：

procedure test(var outData: TArray<SomeClass>);
var
  data: TArray<SomeClass>;
  i: Integer;
begin
  SetLength(data, 10);
  // 初始化每个SomeClass实例
  for i := 0 to 9 do
    data[i] := SomeClass.Create;
  // 将数组赋值给输出参数，转移引用
  outData := data;
end; // 此时data的引用计数因为outData持有而不为0，数组不会被释放

// 调用方代码
var
  resultData: TArray<SomeClass>;
begin
  test(resultData);
  // 此时resultData持有数组引用，元素都存活
end;

2. 直接将数组元素转移到调用方的容器中 #

如果调用方不需要整个数组，只需要里面的类实例，可以在test里遍历数组，把每个元素赋值给调用方的变量（比如另一个数组、列表等），这样每个类实例的引用计数增加，即使test里的数组被销毁，元素也不会被释放。

示例代码：

procedure test(targetList: TList<SomeClass>);
var
  data: TArray<SomeClass>;
  i: Integer;
begin
  SetLength(data, 10);
  for i := 0 to 9 do
    data[i] := SomeClass.Create;
  // 将元素添加到调用方的列表中
  for i := 0 to High(data) do
    targetList.Add(data[i]);
end; // data数组被释放，但元素因为targetList持有引用而存活

// 调用方代码
var
  myList: TList<SomeClass>;
begin
  myList := TList<SomeClass>.Create;
  try
    test(myList);
    // myList里的元素都存活
  finally
    myList.Free;
  end;
end;

3. 手动保留元素引用（极端场景应急方案） #

如果实在不能修改test的参数列表，可以在test里把每个元素的引用赋值给全局变量或者调用方提前准备的全局容器（虽然这种方式不优雅，但符合你不能重构大量代码的限制）。

示例代码：

// 全局变量，调用方提前声明
var
  GlobalElements: array of SomeClass;

procedure test();
var
  data: TArray<SomeClass>;
  i: Integer;
begin
  SetLength(data, 10);
  for i := 0 to 9 do
    data[i] := SomeClass.Create;
  // 将元素引用复制到全局数组
  SetLength(GlobalElements, 10);
  for i := 0 to 9 do
    GlobalElements[i] := data[i];
end; // data数组被释放，但GlobalElements持有元素引用，元素存活

注意：无论用哪种方式，最终都需要在合适的时机手动释放这些SomeClass实例，避免内存泄漏。

内容的提问来源于stack exchange，提问作者user21138890