创建一个常量字符串数组

Question

Delphi 有没有一种方法可以声明一个字符串数组，例如下面的一个？

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

Answer 1

在 XE7 中，您可以像这样声明动态数组常量：

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

Answer 2

试试这个

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

Answer 3

您可以使用动态数组并尝试这样做：

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() 标准函数。

如果您使用旧版本的 Delphi，请将 TArray 替换为您自己的动态数组字符串类型，例如：

type
  TStringArray = array of string;

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;