inno-setup - Inno Setup 循环从头到尾

Question

我正在尝试编写一个函数，依次检查每个驱动器上是否存在特定目录，将找到它的路径存储为变量，如果存在则返回 true，否则返回 false:

function IsDirPresent(): Boolean;
var
  chrDriveLetter: Char;
  strMyDir: String;
begin
  for chrDriveLetter := 'A' to 'Z' do
    begin
      if DirExists(chrDriveLetter + ':\MyDir') then
        strMyDirPath := chrDriveLetter + ':\MyDir'
    end;
  if strMyDirPath <> '' then
    Result := True;
end;

编译时，我在循环行中收到类型不匹配错误。我正在努力弄清楚循环有什么问题，并且一直无法找到有关如何在 Inno Setup 中正确创建从 A 到 Z 的循环的任何信息。

Answer 1

您的循环对于 Pascal 语言是有效的，因为 Char 类型是序数并且它的范围常量是同一类型，所以我猜这是 Pascal Script 语言符号的特定限制。我不知道是否有一些语法解决方法，也不知道是否允许将 Char 类型用于循环控制变量。

我只能为您提供一个使用整数类型循环控制变量的解决方法。它使用 Ord 和 Chr 函数。第一个返回一个 char 的序数值，后者从序数值返回 ASCII 字符:

var
  C: Char;
  I: Integer;
begin
  for I := Ord('A') to Ord('Z') do
  begin
    C := Chr(I);
    ...
  end;
end;