如何在Inno Setup中拆分字符串？
Inno Setup中是否有任何特殊功能来分割字符串？
Inno Setup中是否有任何特殊功能来分割字符串？
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