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

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;

但是在第1224行编译失败：

var slash: char := '\\';

它返回给我这个错误：

C:\Users\pkostrou\IdeaProjects\packstation_adm_core\installer uild dm-application-setup.iss 中第 1224 行出现错误：第 21 列：
需要分号 (';')。
编译中止。

Answer 1

使用

ExtractFileName

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

---

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