如何在Inno Setup中分割字符串?
Inno Setup中是否有任何特殊功能来分割字符串?
我想从字符串'11.2.0.16'
获得以下内容:
tokens: array of string = ('11', '0', '2', '16');
提前致谢!
最佳答案
我今天一直在寻找相同的东西...
这一点在Inno Setup Scripts上效果很好。将此摘录粘贴到脚本内的过程/函数之前,该过程/函数将调用此“拆分”过程。
如果需要,还可以将其修改为功能。
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