是否可以在 Delphi 和 FreePascal 中声明数组的 const 而不让元素为常量？

Question

很久以前，我记得我可以在 Turbo Pascal 7 中做到这一点。

也许我错了，这是我需要澄清的事情，但是是否可以将字符串数组声明为常量？

如果不是，有什么选项/解决方法。

我现在拥有的是：

type
  TStates = (sOne, sTwo, sThree);
var
  TArrayOfString: array [sOne..sThree] of string = 
     ('State one', 'State two', 'State three');

但想用 const 替换该 var。

谢谢

编辑1：添加了更多代码来澄清我的问题。

Answer 1

只需将 var 替换为 const 是完全合法的：

const
  TArrayOfString: array [1..3] of string =
     ('String one', 'String two', 'String three');

我很好奇为什么你的标识符名称以 T 开头。 您是否尝试定义这样的类型：

type
  TArrayOfString = array [1..3] of string;
const
  MyArrayOfString: TArrayOfString =
     ('String one', 'String two', 'String three');

您不能将可变长度数组（AFAIK）作为 const，也不能将其设为未定义的类型。

这是使用 Delphi 2009。YMMV 和 FreePascal。

Answer 2

在过去的 pascal/delphi 中，当您写道：

const 
  A : Integer = 5;

您没有定义常量，而是定义了初始化变量。

您可以毫无问题地定义：

const
  A : array [1..2] of string = ('a', 'b');

但字符串也必须是常量。 它们需要在编译时就知道。

同样的情况也适用：

var
  A : array [1..2] of string = ('a', 'b');

所以你不能写：

var
  B : string = 'hi';
  A : array [1..2] of string = (B, 'b');

因为 B 是一个 var。 但你可以这样写：

const
  B = 'hi'; // Even a typed constant does not work.

var
  A : array [1..2] of string = (B, 'b');

请注意，提供了选项：“可分配类型常量”（默认为 false）来创建可以分配的旧时间类型常量。 它只是为了向后兼容，因为您确实希望常量保持不变。