Delphi通过表单传递多维数组

Question

背景：

我有两种形式。在 form1 上创建了一个数组，需要将它传递给 procedureX 的 form2。该数组是字符串数组的数组，并且是动态的。该数组在 procedureX 中使用，然后传回。清除如下：

procedure ProcedureX (var multidimensionalarray:array of string);

错误：

我知道这会带来错误，因为您不能传递多维数组。您得到的错误是： E2029 标识符应为但 'Array' 被发现。来自这个网站：https://blog.spreendigital.de/2016/08/01/pass-a-multidimensional-array-as-a-parameter-with-a-hidden-caveat/我知道你需要创建一个类型。

但是由于我的问题的背景，我有一些问题： - 我会在 form1 或 form2 中创建类型吗？ - 如何在表单之间传递类型？

我还没有任何代码，因为我不知道从哪里开始。我是代码新手，真的不知道在哪里看。我知道这个问题已经被问过很多次了，但是因为我的程序在一个表格上，而我的数组在另一个表格上，我不知道该怎么做。

Answer 1

我会在第 3 个单元中定义类型 - f.ex.：

UNIT MyTypes;

INTERFACE

TYPE
  TStrArr    = ARRAY OF STRING;
  TStrArrArr = ARRAY OF TStrArr;

IMPLEMENTATION

END.

然后在 Form1 和 Form2 的单位中使用该单位：

UNIT Main;

INTERFACE

USES ..., MyTypes;

TYPE
  TForm1 = CLASS(TForm)
             .
             .
             .
             PROCEDURE ProcedureX(VAR MultiDimensionalArray : TStrArrArr);
             .
             .
             .
           END;

想法是在需要引用多维数组类型的每个地方都使用 MyTypes 单元（例如，声明该类型的变量或传递该类型的参数）而不是使该单元 ( MyTypes) 依赖于您项目中的任何其他内容。