我正在使用Pascal脚本函数来读取和检测文件中数组中有多少个名称。当它确定了名称的数量时，我想要一个#for循环来迭代该数量。
我可以使用Pascal脚本读取和检测名称的数量。问题是，我不知道如何在名称计数过程之后设置numberOfElements变量的值。它必须设置为刚刚使用 Pascal 脚本函数读取的名称数量。
下面是一些示例代码：
#define numberOfElements
#sub CreateSubInstallation
[Languages]
//code ommitted
[Files]
//code ommitted
[Run]
//code ommitted
#endsub
#for {i = 0; i < numberOfElements; i++} CreateSubInstallation
另一种方法也可以。我只想从文件中读取多个名称，然后复制安装以获取名称的数量。因此，每个名称都有自己的安装。更详细地说，每个名称都有自己的：目录中的目录，子目录和变量，这些变量将获得名称"注入"到其中。
以下是 INI 文件的格式：
[Customer]
customers={"customerName1","customerName2"}
以下是使用 Pascal 脚本读取和检测名称的代码：
{ Get the customer names from file }
function GetCustomersFromFile(fileName : string): string;
var
lines: TArrayOfString;
amountOfLines,i: integer;
tempResult: string;
begin
tempResult := '';
if LoadStringsFromFile(fileName, lines) then
begin
amountOfLines := GetArrayLength(amountOfLines);
{ Keep reading lines until the end of the file is reached }
for i := 0 to amountOfLines - 1 do
begin
if (Pos('customers', lines[i]) = 1) then
tempResult := lines[i];
end;
{ if not found return -1 }
if (tempResult = '') then
{ this result is for debugging and }
{ will have no impact on the array population process }
tempResult := '-1';
Result := tempResult;
end;
end;
{ Count the number of elements present in the array in the file }
{ Done for tempArray initilization }
function CountNumberOfStringElements(line : string): integer;
const
chars = ['0'..'9', 'a'..'z', 'A'..'Z'];
var
ignoreCommas: Boolean;
numElements, numValidText: integer;
i: integer;
begin
ignoreCommas := false;
numValidText := 0;
numElements := 0;
{ Loop through text }
for i := 0 to Length(line) - 1 do
begin
if (line[i] = '"') then
ignoreCommas := (NOT ignoreCommas);
if ((line[i]) IN chars AND (ignoreCommas)) then
Inc(numValidText);
if((line[i] = ',') AND (NOT ignoreCommas) )then
Inc(numElements);
end;
if (numElements >= 1) then
result := numElements + 1
else if ((numElements = 0) AND (numValidText > 0)) then
result := 1
else if ((numElements = 0) AND (numValidText = 0)) then
result := 0;
end;
这本质上是我希望安装程序做的，只是一个非常精简的版本。
[Setup]
AppName=My Program
AppVersion=1.5
WizardStyle=modern
DefaultDirName={autopf}My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}MyProg.exe
Compression=lzma2
SolidCompression=yes
OutputDir=userdocs:Inno Setup Examples Output
ArchitecturesAllowed=x64
ArchitecturesInstallIn64BitMode=x64
[Files]
Source: "MyProg-x64.exe"; DestDir: "{app}/customer1/"; DestName: "MyProg.exe"
Source: "MyProg.chm"; DestDir: "{app}/customer1/"
Source: "Readme.txt"; DestDir: "{app}/customer1/"; Flags: isreadme
Source: "MyProg-x64.exe"; DestDir: "{app}/customer2/"; DestName: "MyProg.exe"
Source: "MyProg.chm"; DestDir: "{app}/customer2/"
Source: "Readme.txt"; DestDir: "{app}/customer2/"; Flags: isreadme
[Icons]
Name: "{group}My Program"; Filename: "{app}MyProg.exe"
请注意，它之所以这样构建，是因为它们是服务。每项服务最终都会更多地填充与客户相关的内容。整个安装过程必须使用.exe完成，拆卸过程必须使用不同但也是单一的.exe。
你的问题很不清楚。但我会试着给你一些答案。
如果我理解正确，您希望在 INI 文件中为每个客户部署相同的文件集。如果您需要在运行/安装时读取 INI 文件，则无法使用[Files]部分在 Inno Setup 中执行此操作(如果您在编译时读取 INI 文件，则可以这样做(。
如果您需要在运行/安装时克隆文件，您所能做的就是将它们安装到临时文件夹，然后使用 Pascal 脚本复制它们。
[Files]
Source: "MyProg.exe"; DestDir: "{tmp}"
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
I: Integer;
SourcePath: string;
TargetPath: string;
begin
if CurStep = ssPostInstall then
begin
for I := 0 to NumberOfCustomers - 1 then
begin
SourcePath := ExpandConstant('{tmp}MyProg.exe');
TargetPath := GetPathForCustomer(I) + 'MyProg.exe';
if FileCopy(SourcePath, TargetPath, False) then
begin
Log(Format('Installed for customer %d', [I]));
end
else
begin
Log(Format('Failed to install for customer %d', [I]));
end;
end;
end;
end;
(您必须将NumberOfCustomers和GetPathForCustomer替换为您的实现(
虽然这样，你不会得到任何进度条，并且你会失去Inno Setup的所有内置错误处理。您还必须在 Pascal 脚本中实现卸载。
如果您在编译时读取 INI 文件，那肯定会更好。这意味着您必须在每次更改 INI 文件时重新生成安装程序。但这可以通过单击命令行编译器来完成。
尽管使用预处理器解析 INI 文件并不容易。
另一个黑客解决方案是在[Files]部分生成大量相同的条目，然后可以在运行/安装时与客户动态关联。它不是普遍的，因为总会有上限。但是，如果您知道您永远不会拥有超过 100 个客户，那么这是一个可行的选择。进度条，错误处理和卸载将起作用。
我不明白，[Languages]部分与INI文件有什么关系，所以我跳过了它。
旁注：您的GetCustomersFromFile和GetCustomersFromFile可以使用GetIniString和TStringList.CommaText替换为几行代码。但这是一个单独的问题。