如何在 PascalScript 中将最后一个子文件夹与路径分开？

Question

我需要将最后一个子文件夹与 Windows 路径分开。例如从 C:\java_11 分离 java_11。我有这个功能：

function parseJavaHome(JavaHome:String) : String;
var lastPosOfSlash: Integer;
var tmp : String;
var slash: char := '\';
var vCharacter : char ;
var counter: Integer := 0;
begin

   for vCharacter in JavaHome do
   begin
      counter := counter + 1;
      if vCharacter = slash then
      begin
      lastPosOfSlash := counter;
      end;
   end;

   for i:= lastPosOfSlash to Length(JavaHome) do
   begin
       tmp := tmp + JavaHome[i];
   end;

   Result:= tmp;
end;

end;

但是编译在 varlash: char := '\'; 行上失败 （第 1224 行）它返回给我这个错误：

Error on line 1224 in C:\Users\pkostrou\IdeaProjects\packstation_adm_core\installer\build\adm-application-setup.iss: Column 21:
Semicolon (';') expected.
Compile aborted.

Answer 1

使用

ExtractFileName

支持功能：
https://jrsoftware.org/ishelp/index.php?topic=isxfunc_extractfilename

---

至于你的代码，它有很多问题。一般来说，您的代码适用于 Delphi，但这是 Pascal 脚本。