如何使用类型在 Pascal 中初始化数组？

Question

为了好玩，我想刷新我的 Pascal 知识，所以必须再次复习一下基础知识。

让我们看看这段 Java 代码：

class ArrayTest {

    public static void main(String args[]){
        int[] numArray = new int[]{1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
    }
}

将其重写为 Pascal：

type
    arrNum = array[1..10] of integer;
var
    BBB: arrNum;

begin
    BBB := [1,2,3,4,5,6,7,8,8,10];
end.

在 MacOS 上使用 FPC 3.2.2 编译代码，结果是：

arrnum.pas(7,12) 错误：不兼容类型：得到“{Array Of Const/Constant Open} Array > of ShortInt”，预期为“arrNum”

arrnum.pas(10) 致命：编译模块时出现 1 个错误，正在停止

致命：编译中止错误：/usr/local/bin/ppcx64 返回一个 错误退出代码

这里出了什么问题？

Answer 1

使用构造函数的类似语法可用于动态阵列（BBB），但不能用于静态阵列。可以通过将类型常数分配给变量（BB10：= CCC10）或定义初始化常数（DDD10）来完成静态初始化。

以下代码证明了某些情况：

{$mode delphi} 
type
    arrNum = array of integer;
    arrNum10 = array[0..9] of integer;

const CCC10 : arrNum10 = (1,2,3,4,5,6,7,8,9,10);
var
    BBB: arrNum;
    BBB10 : arrNum10;


    DDD10  : arrnum10 = (1,2,3,4,5,6,7,8,9,10);

begin
    BBB := ArrNum.Create(1,2,3,4,5,6,7,8,8,10);
    BBB10:=CCC10;
end.

Answer 2

您可以在声明中初始化它：

program ideone;
type
    arrNum = array[1..10] of integer;
var
    BBB: arrNum = (1,2,3,4,5,6,7,8,8,10);
    i: Integer;
begin
    for i := 1 to 10 do
        Write(BBB[i])
end.

Answer 3

在pascal [1，＆nbsp; 2，＆nbsp; 3，4，＆nbsp; 5，6，6，＆nbsp; 7，8，8，＆nbsp; 8，8，＆nbsp; 10] set字面包含9个不同的整数值。
您无法将设置分配给array数据类型变量。

取而代之的是，您需要指定array字面的且正确表示它，

arrNum[1: 1; 2: 2; 3: 3; 4: 4; 5: 5; 6: 6; 7: 7; 8: 8; 9: 8; 10: 10]

---

但是，如下所示，FPC（尚未）不符合扩展的Pascal规范（ISO Standard 10206）。 。
他们酿造了自己的pascal，因此编译器（“ mis-”）将您的set字面标识为“ const/const/constant open open} arnay and and and and and and and and and and and and and and and and and shortint”。
参见 marco的答案如何初始化“ ”作为替代方案。

Answer 4

如果声明为数组，则应该使用 for 循环来初始化

type
    arrNum = array [ 1..10] of integer;
var
    BBB: arrNum;
    i: integer;

begin
    for i:=1 to 10 do
    BBB[i] := i;
end.

Answer 5

您可以使用 for 循环初始化它

对于 i := 1 到 10 做
BBB[i]:=i;

或者

对于 i := 1 到 10 做
BBB[i]:=0;

Answer 6

使用动态数组和Delphi兼容模式，可以使用此语法分配数组：

{$mode delphi}

type
  arrNum = TArray<integer>;
var
  BBB: arrNum;    
begin
  BBB := [1,2,3,4,5,6,7,8,8,10];
end.

如果您需要一个静态常数（动态）数组，则分配相似：

const
  BBB : arrNum = [1,2,3,4,5,6,7,8,8,10];