Créer un tableau de chaînes de caractères constant

Question

Existe-t-il un moyen, dans Delphi, de déclarer un tableau de chaînes tel que le suivant?

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

Answer 1

essayer cette

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

Answer 2

Vous pouvez utiliser des tableaux dynamiques et essayez ceci:

var 
    FMyArray: TArray<string>; 

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

Bien que cela ne fait une initialisation d'exécution d'un tableau dynamique sur le tas, il montre également que Delphi supporte un "pseudo-constructeur" sur les tableaux dynamiques qui permettent l'initialisation sur place. (NOTE: le code ci-dessus n'est pas sûr pour les threads). Maintenant, tout ce que vous devez faire pour connaître la longueur de la matrice, utilisez la fonction standard Length() ou, pour trouver la plage d'index autorisée, utilisez les fonctions standard Low() et High().

Si vous utilisez une ancienne version de Delphi, remplacez le tarray avec votre propre type de chaîne de tableau dynamique tels que:

type 
    TStringArray = array of string; 

Answer 3

En XE7 vous pouvez déclarer une constante de tableau dynamique comme ceci:

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

Answer 4

Vous pouvez le faire de manière indirecte. Créer une fonction comme:

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; 

et appeler cette fonction comme:

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

où:

asVelden: ArrayOfString;