delphi - 是否可以在 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。使用 FreePascal 的 YMMV。