Inno setup制作安装包此安装包里面有十个文件有些文件有Components差别有三种不同的版本名称文件名无序通过遍历Files段的文件根据文件的Components的值筛选出文件

您可以使用Inno Setup的Files段和Components段来创建安装包，并根据文件的Components值进行文件筛选。

首先，在Components段中定义三个组件，分别对应三种不同的版本名称。例如：

[Components]
Name: "Version1"; Description: "Version 1"
Name: "Version2"; Description: "Version 2"
Name: "Version3"; Description: "Version 3"

然后，在Files段中定义十个文件，并为每个文件指定对应的组件。例如：

[Files]
Source: "File1.txt"; DestDir: "{app}"; Components: Version1
Source: "File2.txt"; DestDir: "{app}"; Components: Version1
Source: "File3.txt"; DestDir: "{app}"; Components: Version2
Source: "File4.txt"; DestDir: "{app}"; Components: Version2
...

接下来，在Code段中使用ComponentsList函数遍历所有文件，并根据文件的Components值进行筛选。例如：

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  I: Integer;
  Component: string;
begin
  if CurStep = ssInstall then
  begin
    Log('Selected files:');
    for I := 0 to GetArrayLength(Files) - 1 do
    begin
      Component := ComponentsList(False, ExpandConstant('{src}\{#Files[' + IntToStr(I) + '].Source}'), '');
      if Component <> '' then
      begin
        Log(ExpandConstant('{#Files[' + IntToStr(I) + '].Source}') + ' - ' + Component);
      end;
    end;
  end;
end;

通过以上代码，您可以在安装时遍历所有文件，并根据其Components值输出筛选后的文件名和对应的组件名称。

请注意，以上示例代码仅用于演示如何根据文件的Components值进行筛选，并输出文件名和组件名称。您可以根据实际需求进行修改和扩展