Delphi中如何将数组转换为array of const？求安全高效实现方案

针对你的问题，我来逐一拆解解答：

1. 你的原始实现是否安全？ #

答案是完全安全，原因如下：

• Args作为const TArray<Variant>参数，动态数组的const传递本质是传递引用，数组元素的内存会在MyFormat函数执行全程保持稳定
• TVarRec.VVariant指向的是Args[I]的实际内存地址，而Format函数只会读取这些Variant的值，不会修改或释放它们。只要Format调用完成前Args的内存不被回收（函数执行期间生命周期有保障），就不会出现悬空指针或内存访问问题

这个实现不仅安全，而且针对Variant数组的场景已经很高效——直接操作指针，没有额外的类型包装开销。

2. 能否实现得更简洁/通用？ #

如果只需要处理TArray<Variant>，你的原始实现已经足够简洁，也可以把转换逻辑抽成独立工具函数，让代码更清晰：

function VariantArrayToVarRecArray(const Args: TArray<Variant>): TArray<TVarRec>;
var
  I: Integer;
begin
  SetLength(Result, Length(Args));
  for I := Low(Args) to High(Args) do
  begin
    Result[I].VType := vtVariant;
    Result[I].VVariant := @Args[I];
  end;
end;

// 使用示例
function MyFormat(const Fmt: string; const Args: TArray<Variant>): string;
begin
  Result := Format(Fmt, VariantArrayToVarRecArray(Args));
end;

如果需要通用泛型版本（支持任意可被TValue包装的类型，比如Integer、String、Double等），可以通过延长TValue的生命周期来避免你遇到的悬空指针问题：

function GenericFormat<T>(const Fmt: string; const Args: TArray<T>): string;
var
  VarRecs: array of TVarRec;
  ValueHolders: array of TValue; // 用来持有TValue，延长生命周期
  I: Integer;
begin
  SetLength(ValueHolders, Length(Args));
  SetLength(VarRecs, Length(Args));
  
  for I := Low(Args) to High(Args) do
  begin
    ValueHolders[I] := TValue.From<T>(Args[I]);
    VarRecs[I] := ValueHolders[I].AsVarRec;
  end;
  
  Result := Format(Fmt, VarRecs);
end;

这里的关键是用ValueHolders数组存储TValue实例，确保它们在Format调用期间始终处于作用域内，避免临时TValue销毁后导致TVarRec指针悬空。

3. 你尝试的TValue方案为什么会出问题？ #

你写的这段代码：

for I:= Low(Args) to High(Args) do A[I]:= TValue.From(Args[I]).AsVarRec;

问题在于TValue.From(Args[I])创建的是临时TValue实例——循环每一次迭代结束后，这个临时对象会被自动销毁，它内部存储的Variant副本（TValue会复制输入值）的内存也会被释放。此时A[I].VVariant指向的是已经被回收的内存，后续Format访问时就会触发内存访问错误。

4. 有没有现成的标准库方案？ #

Delphi标准库（System/Vcl单元）并没有直接提供数组转array of const的函数，不过上面的自定义实现已经足够轻量和实用，可以封装成工具类方法复用。

内容的提问来源于stack exchange，提问作者maf-soft