स्ट्रिंग्स की निरंतर सरणी बनाएं

Question

क्या डेल्फी में स्ट्रिंग्स की सरणी घोषित करने का कोई तरीका है जैसे कि निम्न एक?

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

Answer 1

कोशिश इस

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

Answer 2

आप गतिशील सरणियों का उपयोग करें और यह कोशिश कर सकते हैं:

var 
    FMyArray: TArray<string>; 

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

इस ढेर पर एक गतिशील सरणी के एक रन-टाइम प्रारंभ करता है, यह यह भी दिखाता है कि डेल्फी गतिशील सरणी पर "स्यूडो-कन्स्ट्रक्टर" का समर्थन करता है जो प्रारंभिक स्थान की अनुमति देता है। (नोट: उपरोक्त कोड थ्रेड-सुरक्षित नहीं है)।

अब आपको सरणी की लंबाई जानने के लिए क्या करना है, लंबाई() मानक फ़ंक्शन का उपयोग करें, या अनुमत अनुक्रमणिका सीमा को खोजने के लिए, निम्न() और उच्च() मानक फ़ंक्शंस का उपयोग करें।

आप डेल्फी के एक पुराने संस्करण का उपयोग कर रहे हैं, तो इस तरह के रूप में अपने गतिशील सरणी स्ट्रिंग प्रकार के साथ TArray बदल देते हैं:

type 
    TStringArray = array of string; 

Answer 3

XE7 में आप इस तरह एक गतिशील सरणी लगातार घोषणा कर सकते हैं:

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

Answer 4

आप इसे अप्रत्यक्ष तरीके से कर सकते हैं। की तरह एक समारोह बनाएँ: इस समारोह

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;