代码之家 › 专栏 › 技术社区 › none

创建字符串的常量数组

const delphi arrays

35

none · 技术社区 · 14 年前

Delphi中是否有方法声明一个字符串数组,如下面的一个?

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

4 回复 | 直到 12 年前

1

48

RRUZ 14 年前

试试这个

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

2

40

LU RD 10 年前

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

3

16

Thomas Ahle 14 年前

您可以使用动态数组并尝试执行以下操作:

var
  FMyArray: TArray<string>;

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

现在要找出数组的长度,只需使用length()标准函数,或者要找到允许的索引范围,只需使用Low()和High()标准函数。

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

type
  TStringArray = array of string;

4

0

user1919497 8 年前

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;