Crear una matriz constante de cadenas

Question

¿Hay alguna manera en Delphi de declarar una matriz de cadenas como la siguiente?

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

Answer 1

probar esto

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

Answer 2

Puede utilizar matrices dinámicas y probar este:

var 
    FMyArray: TArray<string>; 

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

Si bien esto hace una inicialización en tiempo de ejecución de una matriz dinámica en el montón, se también muestra que Delphi admite un "pseudoconstructor" en matrices dinámicas que permiten la inicialización in situ. (NOTA: el código anterior no es seguro para subprocesos).

Ahora todo lo que necesita hacer para conocer la longitud de la matriz, es usar la función estándar Length(), o para encontrar el rango de índice permitido, use las funciones estándar Low() y High().

Si está utilizando una versión anterior de Delphi, reemplazar el tarray con su propia matriz dinámica tipo de cadena, tales como:

type 
    TStringArray = array of string; 

Answer 3

En XE7 se puede declarar una constante de matriz dinámica de esta manera:

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

Answer 4

Puede hacerlo de forma indirecta. Crear una función como:

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; 

y llamar a esta función como:

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

donde:

asVelden: ArrayOfString;