要素が定数でなくても、両方のDelphiとFreePascalで配列のconstを宣言できますか？

Question

私はずっと前に、ターボパスカル7でこれを行うことができたことを覚えています。

多分私は間違っていますが、明確にする必要がありますが、定数として文字列の配列を宣言できますか？

オプション/回避策ではない場合。

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

が、constのでそのVARを交換したい：私は今持っている何

です。

おかげ

編集1は：私の質問を明確にするいくつかのより多くのコードを追加しました。古い日のパスカル/ Delphiで

Answer 1

は完全に合法です：

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'); 

あなたはのconstとして可変長配列（私の知る限り）を持つことができない、またあなたは未定義のタイプのそれを持つことができます。

これは、Delphi 2009. FreePascalを使用したYMMVです。

Answer 2

あなたが書いた：

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）を割り当てることができ、古い時間型指定された定数を作成するために提供されます。下位互換性のためだけにあります。なぜなら、定数を一定にしたいからです。ただ、のconstでVARを交換