在 Inno Setup 中实现脚本常量时出现“预期标识符”或“原型无效”

因此，鉴于此功能，我在GetRoot := ROOTPage.Values[0];线。我希望它告诉我ROOTPage没有定义？

const
  DefaultRoot = 'C:\IAmGRoot';
Var
  ROOTPage : TInputQueryWizardPage;

procedure SetupRoot;
begin
  ROOTPage := CreateInputQueryPage(wpUserInfo,
    ExpandConstant('{cm:RootTitle}'), 
    ExpandConstant('{cm:RootInstructions}'),
    ExpandConstant('{cm:RootDescription}') + ' "' + DefaultRoot + '"'
    );
  
  ROOTPage.Add(ExpandConstant('{cm:SSRoot}') + ':', False);
  ROOTPage.Values[0] := ExpandConstant('{DefaultRoot}');

  // add SSROOT to path
end;

function GetRoot : string;
begin
  GetRoot := ROOTPage.Values[0];
end;

我该如何解释这个错误。 Pascal 中的标识符是什么？

This page http://wiki.freepascal.org/Identifiers告诉我标识符是变量名。也许我需要扩展ROOTPage.Values[0]在某种程度上，因为我从 Inno Setup 对象引用数组？

或者也许我需要以不同的方式返回值。我看见one page http://wiki.freepascal.org/Functions在 Pascal 上，您需要避免在无参数函数上分配函数值，以避免递归循环。这是否意味着我应该传递一个虚拟值？或者有不同的语法吗？该页面没有解释。

我暗自认为我真正的问题是我没有正确定义我的函数......但是好吧。至少可以编译这么多。这个问题可能会变成：如何处理 Pascal 中的无参数函数？

我不认为 Inno Setup 是问题的一部分，但我正在与 Inno Setup 合作，以防万一这很重要。

更新： 它似乎不是数组，因为这会出现相同的错误：

const
  DefaultRoot = 'C:\IAmGRoot';

function GetRoot : string;
begin
  GetRoot := DefaultRoot;
end;

更新： 这link http://www.functionx.com/objectpascal/Lesson11.htm已经说了函数名可以替换/应该用关键字替换Result比如下面的代码。我实际上知道这一点，但 Inno Setup 编译器不会将其识别为有效语法。然后它告诉我我的函数是一个无效的原型。

function GetRoot : string;
begin
  Result := DefaultRoot;
end;

更新： 如果我这样做，我会得到“Invalid Prototype for GetRoot”

function GetRoot : boolean;
begin
  Result := False;
end;

@Martin Prikryl 的更新：

我在几个地方使用过它，但典型的用法是这样的：

[Files]
Source: "C:\ValidPath\Release\*"; DestDir: "{app}\bin"; Components: DefinedComponent
Source: "C:\ValidPath\Deployment\*"; DestDir: "{code:GetRoot}\"; Flags: ignoreversion recursesubdirs; Components: DefinedComponent

预期标识符

您的代码在 Pascal 中是正确的，但在 Pascal 脚本中无法编译。

在 Pascal 中，当您想要分配函数的返回值时，可以将该值分配给具有函数名称的“变量”，或者将Result多变的。

所以这是正确的：

function GetRoot: string;
begin
  GetRoot := ROOTPage.Values[0];
end;

这也是（两者是等价的）：

function GetRoot: string;
begin
  Result := ROOTPage.Values[0];
end;

在 Pascal 脚本中，只有Result作品。当您使用函数名称时，您会得到“需要标识符。”

原型无效

当从外部调用该函数时，您会得到这个Code部分和特定的参数列表/返回值是必需的。但你没有告诉我们，你用什么GetRoot函数为.

Inno Setup 中有两个地方可以使用自定义函数：

• Check范围 https://jrsoftware.org/ishelp/index.php?topic=scriptcheck：为此，该函数必须返回一个Boolean并采用不带参数或采用一个参数（参数类型由您在Check范围）。

  function MyProgCheck(): Boolean;
  
  function MyDirCheck(DirName: String): Boolean;
  

• 脚本常量 https://jrsoftware.org/ishelp/index.php?topic=scriptconstants：该函数必须返回一个string并拿一个string参数，即使脚本常量中没有提供参数。我认为这是您的用例。如果不需要任何参数，只需声明它，但不要使用它：

  function GetRoot(Param: String): string;
  begin
    Result := ROOTPage.Values[0];
  end;