pascal如何截取字符串

Question

目标字符串为：c:\program files\公司名\产品名我想获取：公司名产品名分别保存到2个不同的变量中。别用操作系统的api，因为我是用inno setup，这个支持pascal脚本， 
api我肯定无法调用它!!!求代码

Answer 1

这种路径格式固定吗？
会有类似下面的情况么
c:\program files\公司名\产品名\圈圈叉叉\
c:\program files\圈圈叉叉\公司名\产品名\
d:\圈圈叉叉\公司名\产品名\

Answer 2

规则就是： 至少有会出现公司名，产品名所以我只需要最后的那2个东西即：公司名，产品名比如：d:\公司名\产品名d:\test\公司名\产品名d:\program files\公司名\产品名帮忙解答一下，我需要从pascal脚本里获取到

Answer 3

extractfilename
extractfiledir
结合用就行了

Answer 4

没学过pascal，帮忙解答一下，谢谢

Answer 5

DelimitedText 函数，把Delimiter设置为'\'即可把字符串以'\'为间隔分为若干部分，取最后两个即可

Answer 6

http://blog.csdn.net/s11ss/article/details/4738094

Answer 7

const
  str = 'c:\program files\圈圈叉叉\公司名\产品名\';
var
  sLi: TStringList;
begin
  sLi := TStringList.Create;
  ExtractStrings(['\'], [], str, sLi);
  ShowMessage(sLi[sLi.Count - 1]); // 产品名
  ShowMessage(sLi[sLi.Count - 2]); // 公司名
  sLi.Free;
end;