开放数组参数转TArray<>的正确方式及替代方法咨询

咱们先拆解下你遇到的问题：Delphi里的**开放数组（array of TPoint）和动态数组TArray**虽然看起来相似，但属于完全不同的类型体系——开放数组是编译器提供的语法糖，它能兼容静态数组、动态数组等多种输入，但底层的类型标识和动态数组不匹配，所以直接传递会触发E2010类型不兼容错误。

你用的指针强转写法是否规范？ #

先说结论：这种写法不规范，属于依赖编译器底层实现的hack技巧。
你用TArray<TPoint>(@pts)强制转换，本质是赌开放数组在栈上的内存布局刚好和动态数组的指针结构一致。虽然当前版本的Delphi可能能正常运行，但这种写法有两个致命问题：

• 兼容性差：如果后续Delphi编译器修改了开放数组的实现逻辑，这段代码直接就会崩溃；
• 可读性差：其他维护代码的人很难理解为什么要加这个指针转换，增加了维护成本。
  所以不推荐把这种写法作为规范方案。

可行的规范替代方法 #

根据你的需求（两个函数的参数类型都不能修改），有两种稳妥的方案：

1. 手动复制元素到动态数组（全Delphi版本兼容） #

这是最稳妥、兼容性最好的写法，明确把开放数组的元素复制到动态数组中，完全符合类型系统要求：

procedure B(var pts: array of TPoint);
var
  DynPts: TArray<TPoint>;
  I: Integer;
begin
  SetLength(DynPts, Length(pts));
  for I := 0 to High(pts) do
    DynPts[I] := pts[I];
  A(DynPts);
end;

2. 使用官方TArray.Copy方法（Delphi XE7及以上版本支持） #

从Delphi XE7开始，System.Generics.Collections里的TArray类提供了泛型Copy方法，可以直接把开放数组转换为对应的动态数组，这是官方推荐的简洁写法：

procedure B(var pts: array of TPoint);
begin
  A(TArray.Copy<TPoint>(pts));
end;

这个方法内部已经帮你完成了元素复制，代码更简洁，同时保证了类型安全和兼容性。

总结 #

优先选择TArray.Copy（如果你的Delphi版本支持），版本较低的话就用手动复制元素的方案。尽量避免指针强制转换的写法，它看起来“高效”但隐藏了很大的兼容性风险。

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