ge-aerospace/inno-installers
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix var declaration inside begin..end block (Pascal syntax error)

Browse Source 
Move StepCount to procedure var section.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
cproudlock
2026-03-03 17:13:30 -05:00
parent 5a3955b413
commit d68cd6fe02
1 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
PrinterInstaller/PrinterInstaller.iss
View File

@@ -913,7 +913,7 @@ var
LogDir, LogPath, SummaryMsg: String; LogDir, LogPath, SummaryMsg: String;
InstalledNames: TArrayOfString; InstalledNames: TArrayOfString;
DefaultPrinter: String; DefaultPrinter: String;
AllCount, CleanedCount: Integer; AllCount, CleanedCount, StepCount: Integer;
begin begin
if CurStep <> ssPostInstall then Exit; if CurStep <> ssPostInstall then Exit;
@@ -938,14 +938,11 @@ begin
LogPath := LogDir + '\printer_install.log'; LogPath := LogDir + '\printer_install.log';
// Initialise progress bar: fixed steps + one per printer being changed // Initialise progress bar: fixed steps + one per printer being changed
begin
var StepCount: Integer;
StepCount := 4; // cleanup + staging + 2x spooler restart StepCount := 4; // cleanup + staging + 2x spooler restart
for I := 0 to GetArrayLength(PrinterDataArray) - 1 do for I := 0 to GetArrayLength(PrinterDataArray) - 1 do
if PrinterSelectionPage.Values[I] <> PrinterDataArray[I].IsInstalled then if PrinterSelectionPage.Values[I] <> PrinterDataArray[I].IsInstalled then
StepCount := StepCount + 1; StepCount := StepCount + 1;
SetStatusInit(StepCount); SetStatusInit(StepCount);
end;
// ── Step 0: Remove legacy printers from old print servers ──────────────── // ── Step 0: Remove legacy printers from old print servers ────────────────
SetStatus('Removing legacy printers...'); SetStatus('Removing legacy printers...');