Creare una serie costante di stringhe

Question

C'è un modo in Delphi che dichiara una serie di stringhe come quella successiva?

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

Answer 1

provare questo

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

Answer 2

È possibile utilizzare array dinamici e provare questo:

var 
    FMyArray: TArray<string>; 

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

Anche se questo fa fare un'inizializzazione di runtime di un array dinamico sul mucchio, si mostra anche che Delphi supporta uno "pseudo-costruttore" su array dinamici che consentono l'inizializzazione sul posto. (NOTA: il codice sopra non è thread-safe).

Ora tutto ciò che è necessario fare per scoprire la lunghezza dell'array, è utilizzare la funzione standard Length(), o per trovare l'intervallo di indice consentito, utilizzare le funzioni standard Low() e High().

Se stai usando una vecchia versione di Delphi, sostituire il tarray con il proprio dinamico-array di tipo stringa come:

type 
    TStringArray = array of string; 

Answer 3

In XE7 si può dichiarare una costante array dinamico come questo:

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

Answer 4

È possibile farlo in modo indiretto. Creare una funzione come:

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; 

e chiamare questa funzione come:

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

dove:

asVelden: ArrayOfString;