创建一个字符串的常量数组

Question

有没有在Delphi中声明一个字符串数组的方法，如下面的方法？

{'first','second','third'} 

Answer 1

试试这个

Const 
Elements =3; 
MyArray : array [1..Elements] of string = ('element 1','element 2','element 3'); 

Answer 2

您可以使用动态数组，并尝试这个办法：

var 
    FMyArray: TArray<string>; 

function MyArray: TArray<string>; 
begin 
    if Length(FMyArray) = 0 then 
    FMyArray := TArray<string>.Create('One', 'Two', 'Three'); 
    Result := FMyArray; 
end; 

虽然这并做一个动态数组的运行时初始化堆上，它还显示Delphi支持动态数组上的“伪构造函数”，允许就地初始化。 （注意：上面的代码不是线程安全的）。

现在您只需要使用Length（）标准函数或查找允许的索引范围，就可以使用Low（）和High（）标准函数来查找数组长度。

如果您使用德尔福的旧版本，用自己的动态数组string类型取代在tarray如：

type 
    TStringArray = array of string; 

Answer 3

在XE7你可以声明动态数组常量是这样的：

const 
    MyArray: TArray<String> = ['First','Second','Third']; 

Answer 4

您可以间接的方式做到这一点。创建这样一个功能：

procedure assignStringArray(var rasVelden: ArrayOfString; const asVeldenIn: Array Of String); 
var 
    iLengte, iT1: Integer; 
begin 
    iLengte := Length(asVeldenIn); 
    SetLength(rasVelden, iLengte); 
    for iT1 := iLengte-1 downto 0 do 
     rasVelden[iT1] := asVeldenIn[iT1]; 
end; 

，并调用这个函数，如：

assignStringArray(asVelden, ['String1', 'String2', 'String3']); 

其中：

asVelden: ArrayOfString;