如何定义常量数组？(How to define an array in const?)

我具有限定一个字符串数组中的一些问题const下在创新安装代码部分，我有以下几点：

[Code]

const
  listvar: array [0..4] of string =
     ('one', 'two', 'three', 'four', 'five');

它说我需要一个=其中:是，但我不能把它定义为一个数组。

Answer 1:

我前一阵做了一个小工具功能。 它不会让你在一个恒定分配一个数组，但它可以在一个衬垫的变量做的伎俩。 希望这帮助。

你可以用这种方式：

listvar := Split('one,two,three,four,five', ',');

// ============================================================================
// Split()
// ----------------------------------------------------------------------------
// Split a string into an array using passed delimeter.
// ============================================================================
Function Split(Expression: String; Separator: String): TArrayOfString;
Var
    i: Integer;
    tmpArray : TArrayOfString;
    curString : String;

Begin
    i := 0;
    curString := Expression;

    Repeat
        SetArrayLength(tmpArray, i+1);
        If Pos(Separator,curString) > 0 Then    Begin
            tmpArray[i] := Copy(curString, 1, Pos(Separator, curString)-1);
            curString := Copy(curString, Pos(Separator,curString) + Length(Separator), Length(curString));
            i := i + 1;
        End Else Begin
             tmpArray[i] := curString;
             curString := '';
        End;
    Until Length(curString)=0;

    Result:= tmpArray;
End;

文章来源: How to define an array in const?