इनो सेटअप में स्ट्रिंग को कैसे विभाजित करें

Question

मैं इनो सेटअप में स्ट्रिंग कैसे विभाजित कर सकता हूं?
क्या स्ट्रिंग को विभाजित करने के लिए इनो सेटअप में कोई विशेष कार्य है?

मैं स्ट्रिंग '11.2.0.16' से निम्नलिखित प्राप्त करना चाहते हैं:

tokens: array of string = ('11', '0', '2', '16'); 

अग्रिम धन्यवाद!

Answer 1

मैं एक ही बात आज की तलाश में किया गया है ...

यह एक Inno सेटअप स्क्रिप्ट के बारे में ठीक काम करता है। इस स्क्रिप्ट को प्रक्रिया/फ़ंक्शन से पहले अपनी स्क्रिप्ट के अंदर पेस्ट करें जो इस "विभाजन" प्रक्रिया को कॉल करेगा।

तुम भी एक समारोह पर इस संशोधित कर सकते हैं, और यदि आप चाहें ...

procedure Explode(var Dest: TArrayOfString; Text: String; Separator: String); 
var 
    i, p: Integer; 
begin 
    i := 0; 
    repeat 
    SetArrayLength(Dest, i+1); 
    p := Pos(Separator,Text); 
    if p > 0 then begin 
     Dest[i] := Copy(Text, 1, p-1); 
     Text := Copy(Text, p + Length(Separator), Length(Text)); 
     i := i + 1; 
    end else begin 
     Dest[i] := Text; 
     Text := ''; 
    end; 
    until Length(Text)=0; 
end; 

procedure Whatever(); 
var 
    str: String; 
    strArray: TArrayOfString; 
    i: Integer; 
begin 
    Explode(strArray,str,'.'); 
    for i:=0 to GetArrayLength(strArray)-1 do begin 
    //do something 
    end; 
end; 

here

Answer 2

से लिया किसी को भी कि समारोह प्रारूप मैं @ cezar-lamann से ऊपर संशोधित किया है पसंद करते हैं के लिए :

function StrSplit(Text: String; Separator: String): TArrayOfString; 
var 
    i, p: Integer; 
    Dest: TArrayOfString; 
begin 
    i := 0; 
    repeat 
    SetArrayLength(Dest, i+1); 
    p := Pos(Separator,Text); 
    if p > 0 then begin 
     Dest[i] := Copy(Text, 1, p-1); 
     Text := Copy(Text, p + Length(Separator), Length(Text)); 
     i := i + 1; 
    end else begin 
     Dest[i] := Text; 
     Text := ''; 
    end; 
    until Length(Text)=0; 
    Result := Dest 
end;