在Inno Setup Pascal脚本中运行时评估预处理器宏

Question

我使用Inno Setup#定义指令来定义安装程序中有关软件包的所有信息，然后使用其他指令来提取该字符串的部分。例如，使用以下命令，部件号（Package1）将返回05414。

#define Package1 "05414 - My Package"
#define PartNumber(str Package) Copy(Package, 1, 5)

我在脚本和代码中使用这种方法，而且效果很好。然而，我遇到了一种情况，即通过编程生成字符串会很方便，而且我很难让它正常工作。例如，我想做以下事情。

procedure Foo(Package: String);
var
  PartNumber: String;
begin
  PartNumber:= ExpandConstant(Format('{#PartNumber(%s)}', [Package]));
end;

procedure Bar();
begin
   Foo(ExpandConstant('{#Package1}')); 
end;

Foo的Package参数是正确的，但我收到一个编译器错误消息

[ISPP]格式“%”没有参数。

它似乎不喜欢零件编号行字符串中的 #。即使在普通字符串中包含 # 也会产生“未终止的预处理器指令”错误，所以我认为它将 # 解释为精确说明符或其他东西。

有没有办法让它将< code>#视为文本的一部分，这样我就可以以编程方式扩展这个常量？如果没有，是否有其他方法可以实现这一点？

Answer 1

这是行不通的。

部件号是一个预处理器函数/宏。它在编译时评估。它在运行时不存在。

当然，您可以实现等效的Pascal Script函数：

function PartNumberPascal(Package: string): string;
begin
  Result := Copy(Package, 1, 5);
end;

procedure Foo(Package: String);
var
  PartNumber: String;
begin
  PartNumber := PartNumberPascal(Package);
end;

可能让你困惑的是这个电话：

Foo(ExpandConstant('{#Package1}')); 

它可能会给您一种印象，即< code>ExpandConstant函数扩展了< code>Package1预处理程序定义。

它没有！

{#...} 语法（与 {...} 相反）不是常量。这是一个内联预处理器指令调用，其中，当未显式指定指令时，将隐含发出。所以 {#Package1} 与 {#emit Package1} 相同。与每个预处理器构造一样，它在编译时进行评估。

如果将 SaveToFile 预处理器函数调用添加到脚本末尾：

procedure Bar();
begin
  Foo(ExpandConstant('{#Package1}')); 
end;

#expr SaveToFile(AddBackslash(SourcePath) + "Preprocessed.iss")

编译后，检查预处理的内容。iss是这样的。您将看到：

procedure Bar();
begin
  Foo(ExpandConstant('05414 - My Package')); 
end;

Package1已扩展为其值。但是ExandConstant仍然存在，因此它完全没用！（'05414-My Package'中没有常量）

这将产生相同的效果：

procedure Bar();
begin
  Foo('{#Package1}'); 
end;

对于类似的问题，请参阅：
在Inno Setup Pascal Script中评估运行时来自预处理器的数据集合