2
0
Martijn Laan 4 сар өмнө
parent
commit
efb72982c3

+ 1 - 1
Projects/Src/Compiler.SetupCompiler.pas

@@ -5389,7 +5389,7 @@ begin
           if Sign <> fsNoSetting then
             AbortCompileFmt(SCompilerParamErrorBadCombo2,
               [ParamCommonFlags, 'external', SignFlags[Sign]]);
-          Excludes := AExcludes.CommaText;
+          Excludes := AExcludes.DelimitedText;
         end;
 
         if (ISSigKeyEntries.Count = 0) and (foISSigVerify in Options) then

+ 1 - 1
Projects/Src/Setup.Install.pas

@@ -1941,7 +1941,7 @@ var
             end
             else
               SourceWildcard := ExpandConst(CurFile^.SourceFilename);
-            Excludes.CommaText := CurFile^.Excludes;
+            Excludes.DelimitedText := CurFile^.Excludes;
             ProgressBefore := CurProgress;
             repeat
               SetProgress(ProgressBefore);

+ 1 - 1
Projects/Src/Setup.MainFunc.pas

@@ -1832,7 +1832,7 @@ begin
         else begin
           { External file }
           SourceWildcard := ExpandConst(CurFile^.SourceFilename);
-          Excludes.CommaText := CurFile^.Excludes;
+          Excludes.DelimitedText := CurFile^.Excludes;
           if not RecurseExternalFiles(DisableFsRedir, PathExtractPath(SourceWildcard), '',
              PathExtractName(SourceWildcard), IsWildcard(SourceWildcard), Excludes, CurFile) then begin
             Result := False;