Delphi初始化常量数组的记录

要初始化一个常量数组的记录，可以使用 const 关键字来声明常量数组，并在声明时进行初始化。

以下是一个示例代码：

program InitConstArrayRecord;
{$APPTYPE CONSOLE}
  TMyRecord = record
    Name: string;
    Age: Integer;
const
  MyConstArray: array[0..2] of TMyRecord = (
    (Name: 'John'; Age: 25),
    (Name: 'Mary'; Age: 30),
    (Name: 'David'; Age: 35)
  i: Integer;
begin
  for i := Low(MyConstArray) to High(MyConstArray) do
  begin
    Writeln('Name: ', MyConstArray[i].Name);
    Writeln('Age: ', MyConstArray[i].Age);
    Writeln;
  Readln;
在这个示例代码中，我们定义了一个名为TMyRecord的记录类型，包含了Name和Age两个字段。然后，我们使用const关键字声明了一个常量数组MyConstArray，其元素类型为TMyRecord。
在声明常量数组时，我们使用圆括号括起来的初始化列表来初始化每个元素的值。每个元素都使用花括号括起来，并且在花括号内按照字段顺序给出字段的值。
在主程序中，我们使用for循环遍历常量数组的所有元素，并输出每个元素的Name和Age字段的值。
运行这个示例代码，输出结果将会是：
Name: John
Age: 25
Name: Mary
Age: 30
Name: David
Age: 35
这就是使用const关键字初始化常量数组的记录的解决方法。