如何在 Delphi 中将泛型数组作为开放数组参数传递？

Question

我有一个枚举类型，我需要传递一个这种类型的数组作为参数：

type
  TTest = (a,b,c);


procedure DoTest(stest: TArray<TTest>);

当我编译时

DoTest([a]);

我收到以下错误：

错误：E2010 不兼容的类型：'System.TArray' 和 'Set'*

那么，如何在不创建TArray<TTest> 类型的变量的情况下调用DoTest？

Answer 1

我现在没有可用的 Delphi 编译器，所以我无法验证这一点，但对我来说

procedure DoTest(stest: TArray<TTest>);

没有将stest 声明为open array parameter，而是一个动态数组参数。你确实想要

procedure DoTest(const stest: array of TTest);

Answer 2

做你想做的一种方法是将参数更改为 TTest 的 open array，即

procedure DoTest(const stest: array of TTest);

但是假设您不想更改参数，并且真的希望它是TArray<TTest>，那么您可以简单地使用数组伪构造函数语法来调用它（在几乎所有版本的 Delphi 中，除了很旧的）。假设你有类似的东西：

type
  TTest = (a, b, c);

procedure DoTest(const stest: TArray<TTest>);
// simple demo implementation
var
  I: Integer;
begin
  for I := Low(stest) to High(stest) do
    Write(Integer(stest[I]), ' ');
  Writeln;
end;

然后可以使用 Create 语法调用它，而无需声明变量或手动填充它。编译器将为您执行此操作：

begin
  DoTest(TArray<TTest>.Create(a, c, b, a, c));
end.

输出如预期的那样：

0 2 1 0 2

Answer 3

编译器可能会将a 与另一个声明混淆。

像这样限定类型：

DoTest([Ttest.a]);

注意：

在XE7 中引入了这个初始化动态数组的功能。

Answer 4

我假设“如何在不创建 TArray 类型的变量的情况下调用 DoTest”，您希望避免声明和初始化局部变量，即类似代码

var arr: TArray<TTest>;
begin
  SetLength(arr, 1);
  arr[0] := a;
  DoTest(arr);

为此，您可以使用数组构造函数，例如：

DoTest(TArray<TTest>.Create(a));

至少从 Delphi 2010 开始支持这种语法。