Delphi跨窗体传递动态多维字符串数组的报错问题

你遇到的这个E2029错误，核心原因是Delphi不支持直接把匿名的多维开放数组（array of array of string）作为var参数传递。编译器需要明确的类型标识符，而匿名多维数组无法满足这个要求。下面给你两种实用的解决方案：

方案一：自定义命名动态数组类型 #

这是最直观的解决方式，先在公共单元（或者两个窗体都能访问的地方）定义明确的动态数组类型，再用这个类型作为参数：

// 先定义层级化的动态数组类型
type
  TStringRow = array of string;       // 一维字符串数组（代表一行）
  TString2DArray = array of TStringRow; // 二维字符串数组

然后修改Form2的ProcedureX声明：

procedure ProcedureX(var multidimensionalarray: TString2DArray);

在Form1里创建并传递数组的示例：

var
  My2DArray: TString2DArray;
begin
  // 初始化二维数组
  SetLength(My2DArray, 2);
  SetLength(My2DArray[0], 3);
  My2DArray[0][0] := 'A1';
  My2DArray[0][1] := 'A2';
  My2DArray[0][2] := 'A3';
  SetLength(My2DArray[1], 2);
  My2DArray[1][0] := 'B1';
  My2DArray[1][1] := 'B2';

  // 调用Form2的ProcedureX，数组会被修改后传回
  Form2.ProcedureX(My2DArray);
end;

方案二：使用泛型数组类型（Delphi XE及以上版本） #

如果你不想自定义类型，可以直接用Delphi内置的泛型数组类型TArray<T>，它能快速构建多维数组：

修改Form2的ProcedureX声明：

procedure ProcedureX(var multidimensionalarray: TArray<TArray<string>>);

Form1里的调用逻辑和方案一几乎一致，只是数组类型换成TArray<TArray<string>>即可：

var
  My2DArray: TArray<TArray<string>>;
begin
  // 初始化和赋值逻辑和方案一相同
  SetLength(My2DArray, 2);
  SetLength(My2DArray[0], 3);
  My2DArray[0][0] := 'A1';
  // ... 其他赋值

  Form2.ProcedureX(My2DArray);
end;

为什么原来的写法会报错？ #

Delphi的开放数组参数（array of ...）在一维场景下可以作为var参数，但多维的匿名开放数组（array of array of string）无法被编译器识别为一个明确的类型，所以会抛出"Identifier expected but 'Array' found"的错误。用命名类型或泛型类型后，编译器能明确参数的类型，自然就能正常传递和修改数组了。

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