常量数组中的Delphi“未声明的标识符”

Question

我有以下陈述：

type tx = Record
      a : string;
      b : integer;
     end;

const
     x : tx = (a: 'a'; b: 1);
     xs : array of tx = ((x));

编译器给了我：“Undeclared Identifier 'x'”

我不明白为什么，因为 'x' 是在 'xs' 数组声明和常量类型匹配之前声明的。我感谢任何启示；

Answer 1

您原始答案中的代码不是导致您报告的错误消息的代码。我已尽力修复它，但发布实际代码而不是近似代码确实值得。

无论如何，假设这就是你所拥有的。

const
  x: tx = (a: 'a'; b: 1);
  xs: array of tx = ((x));

x 的声明很好。这定义了所谓的typed constant。

xs的声明无效有两个原因：

1. 您不能为动态数组类型声明类型化常量。
2. 常量声明中的值必须是constant expressions。这排除了在任何常量声明中使用 x 作为值。

现在，从错误来看，您可能拥有的更像是这样的：

const
  x: tx = (a: 'a'; b: 1);
  xs : array [0..0] of tx = ((x));

这给出了您报告的错误。即：

E2003 未声明的标识符：'x'

这是因为我上面列表中的第 2 项。代码编译失败，因为x 不是常量表达式。

引用常量表达式的文档：

常量表达式是编译器可以在不执行它所在的程序的情况下计算的表达式。常量表达式包括数字；字符串；真正的常数；枚举类型的值；特殊常量 True、False 和 nil；以及使用运算符、类型转换和集合构造函数专门从这些元素构建的表达式。

请注意，类型化常量不会出现在列表中，这就是为什么您的 x 不是常量表达式。

考虑到这一切，你能做的最好的，声明一个常量，可能是：

const
  xs: array [0..0] of tx = ((a: 'a'; b: 1));

Answer 2

试试

const
  x1 : tx = (a: 'a'; b : 1);
  x2 : tx = (a: 'aa'; b : 11);
  xs : array[1..2] of tx = ( (a: 'a'; b : 1) , (a: 'aa'; b : 11) );

一些在线参考：

• Understanding and Using Record Data Types in Delphi
• How to Declare a Constant Record in Delphi
• How to Declare and Initialize Constant Arrays in Delphi

编辑：大卫的答案包含关键 - 常量定义不能使用本身不是常量的表达式。

Answer 3

我决定声明一个变量语句，它将全局常量保存为一个动态数组。在运行时，我使用特定单元所需的propper 常量语句填充该数组。

interface
...
type tx = Record
  a : string;
  b : integer;
end;
...
const x1 : tx = (a: 'a1'; b: 1);
      x2 : tx = (a: 'a2'; b: 2);
      x3 : tx = (a: 'a3'; b: 3);
...
var xs : array of tx; 
...
implementation
...
procedure SetXs;
begin
  SetLength (xs, 1);
  xs [0] := x1;
  SetLength (xs, 2);
  xs [1] := x3;
end;
...

我不知道这是最好还是最优雅的方式，但它现在适合我。我接受建议。谢谢。