如何在Pascal Script中分离路径最后子文件夹及解决编译报错

一、修复编译错误 #

你遇到的编译错误源于第1224行的代码：

var slash: char := '\\';

char类型仅能存储单个字符，而'\\'是两个反斜杠字符，既违反类型约束，也不符合Pascal字符常量的语法规范。将该行修改为以下代码即可解决报错：

var slash: char := '\';

二、优化路径子文件夹分离功能 #

原代码还存在未声明变量i、无法处理末尾反斜杠等问题，且手动遍历字符效率较低。推荐使用Inno Setup Pascal Script内置函数简化实现，同时覆盖更多边界场景：

优化后的完整函数 #

function parseJavaHome(JavaHome: String): String;
var
  LastSlashPos: Integer;
begin
  // 移除路径末尾的所有反斜杠，避免末尾斜杠导致结果异常
  JavaHome := TrimRight(JavaHome, ['\']);
  // 获取最后一个反斜杠的位置
  LastSlashPos := LastDelimiter('\', JavaHome);
  // 截取最后一个子文件夹名称
  if LastSlashPos > 0 then
    Result := Copy(JavaHome, LastSlashPos + 1, Length(JavaHome) - LastSlashPos)
  else
    Result := JavaHome; // 无反斜杠时直接返回原路径（如单文件夹名）
end;

功能说明 #

• 处理末尾反斜杠：输入C:\java_11\时，会先转为C:\java_11再截取，返回java_11
• 内置函数简化逻辑：LastDelimiter直接定位最后一个反斜杠，无需手动遍历字符
• 兼容边界场景：输入无反斜杠的字符串（如java_11）时，直接返回原字符串

内容的提问来源于stack exchange，提问作者Petr Kostroun