Inno Setup 安装脚本实现对路径解析

文章目录

• 前言
• 使用方法
• 总结

---

前言

在制作安装包时，有时候需要对安装路径进行解析，得到需要的字符串。本文提供了一种对路径解析的方法。

---

提示：以下是本篇文章正文内容，下面案例可供参考

使用方法

调用以下过程，输入第二个和第三个参数，返回一个字符串数组，根据需要取相应的字符串即可。

代码如下（示例）：

procedure ParsePath(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;

总结

该方法除了可以对路径进行解析，也可以解析固定分隔符的字符串。如IP地址等。