Delphi中参数创建对象与返回对象的内存管理及优化方案

场景1：THTTPClient.Post参数中创建的TStringStream内存去向 #

当你在THTTPClient.Post的参数列表中直接实例化TStringStream（例如Client.Post(ApiUrl, TStringStream.Create('request-body'))），无需手动释放该流对象——THTTPClient框架会接管它的所有权并负责清理。

具体逻辑是：THTTPClient的核心请求处理方法（如DoRequest）会在请求完成后（无论成功、失败或抛出异常），自动调用传入的请求体流的Free方法。这是Delphi HTTP客户端组件的明确设计约定：所有传入的请求内容流，由客户端负责生命周期管理。

场景2：返回新建TStringList的方法——所有权转移的合理性与替代方案 #

1. 所有权转移是否合理？ #

这种让方法返回新建对象、将释放责任转移给调用者的模式，是Delphi早期的常见写法，但存在明显的内存泄漏风险：调用者很容易忘记调用Free，或者在多引用场景下出现重复释放问题。从现代Delphi的最佳实践来看，这种模式并不推荐。

2. 底层可用的替代机制 #

Delphi提供了多种避免手动内存管理的机制：

• 引用计数型对象：通过实现IInterface接口，利用Delphi的引用计数自动管理对象生命周期，无需手动调用Free。
• 值类型返回：使用TArray<string>等编译器自动管理的类型，避免对象所有权问题。
• 输出参数模式：由调用者提前创建对象，方法仅负责填充内容，所有权始终归调用者。

3. 无需转移所有权的最优方案 #

推荐以下几种更安全的实现方式：

方案一：返回字符串数组（TArray）

直接返回编译器自动管理的数组类型，调用者无需关心内存释放：

function ExampleClass.AsStringArray: TArray<string>;
var
  LocalSL: TStringList;
begin
  LocalSL := TStringList.Create;
  try
    // 填充LocalSL的业务逻辑
    Result := LocalSL.ToStringArray;
  finally
    LocalSL.Free;
  end;
end;

方案二：使用输出参数填充已有对象

让调用者负责对象的创建与释放，方法仅做内容填充：

procedure ExampleClass.FillStringList(const TargetSL: TStringList);
begin
  TargetSL.Clear;
  // 填充TargetSL的业务逻辑，如TargetSL.Add('item1')
end;

调用示例：

var
  MySL: TStringList;
begin
  MySL := TStringList.Create;
  try
    ExampleClassInstance.FillStringList(MySL);
    // 使用MySL处理数据
  finally
    MySL.Free;
  end;
end;

方案三：封装为引用计数接口

实现基于IInterface的字符串列表接口，利用引用计数自动释放内部对象：

type
  IStringList = interface
    ['{YOUR-GUID-HERE}']
    function Add(const S: string): Integer;
    function GetCount: Integer;
    function GetItem(Index: Integer): string;
    property Count: Integer read GetCount;
    property Items[Index: Integer]: string read GetItem;
  end;

  TInterfacedStringList = class(TInterfacedObject, IStringList)
  private
    FInnerSL: TStringList;
    function GetCount: Integer;
    function GetItem(Index: Integer): string;
  public
    constructor Create;
    destructor Destroy; override;
    function Add(const S: string): Integer;
  end;

// 接口实现细节
constructor TInterfacedStringList.Create;
begin
  inherited;
  FInnerSL := TStringList.Create;
end;

destructor TInterfacedStringList.Destroy;
begin
  FInnerSL.Free;
  inherited;
end;

function TInterfacedStringList.Add(const S: string): Integer;
begin
  Result := FInnerSL.Add(S);
end;

function TInterfacedStringList.GetCount: Integer;
begin
  Result := FInnerSL.Count;
end;

function TInterfacedStringList.GetItem(Index: Integer): string;
begin
  Result := FInnerSL[Index];
end;

// ExampleClass中的方法实现
function ExampleClass.AsStringList: IStringList;
begin
  Result := TInterfacedStringList.Create;
  // 填充Result的业务逻辑
end;

调用时直接使用接口，无需手动释放：当接口引用计数降为0时，对象会自动销毁。

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