Sabit bir dizi dizgi oluşturma

Question

Delphi'de aşağıdaki gibi bir dizi dizeyi bildirmenin bir yolu var mı? Bu yığın dinamik dizinin bir çalışma zamanı başlatma yapar iken

var 
    FMyArray: TArray<string>; 

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

it:

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

Answer 1

bu

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

Answer 2

Dinamik diziler kullanabilir ve bu deneyebilirsiniz deneyin ayrıca Delphi'nin, yerinde başlatmaya izin veren dinamik dizilerde bir "sözde kurucu" özelliğini desteklediğini de gösterir. (NOT: yukarıdaki kod iplik güvenli değildir).

Artık dizinin uzunluğunu bulmak için yapmanız gereken tek şey, Length() standart işlevini kullanmak veya izin verilen dizin aralığını bulmak için Low() ve High() standart işlevlerini kullanın.

Delphi eski bir sürümünü kullanıyorsanız, örneğin Kendi dinamik dizi dize türüyle TArray değiştirin:

type 
    TStringArray = array of string; 

Answer 3

XE7 olarak böyle bir dinamik dizi sabiti ilan edebilir:

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

Answer 4

Bunu dolaylı olarak yapabilirsiniz. gibi bir işlev oluşturun:

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; 

ve çağrı bu fonksiyon gibi:

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

burada:

asVelden: ArrayOfString;