firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-02-02 09:20:39 +01:00
Code Issues

Remove some InnoSetup compiler warnings

Browse Source
This commit is contained in:
Paul Reeves 2020-04-28 16:14:41 +02:00
parent a00c88dbf4
commit 23dcc30058
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
builds/install/arch-specific/win32/FirebirdInstallEnvironmentChecks.inc
View File

@ -41,7 +41,7 @@
function ShowCopyGds32Task: boolean;
function CopyFbClientLib: boolean;
function ShowCopyFbClientLibTask: boolean;
function SummarizeInstalledProducts: String;
function AnalysisAssessment: boolean;
@ -387,12 +387,11 @@ var
product: Integer;
gds32VersionString: String;
VerInt: Array of Integer;
BoolOne, BoolTwo, BoolEval: Boolean;
EvalOne, EvalTwo: Integer;
// BoolOne, BoolTwo, BoolEval: Boolean;
// EvalOne, EvalTwo: Integer;
dbg_ProductPath, dbg_BinPath, dbg_ClientVersion, dbg_GBAKVersion, dbg_Server: String;
dbg_InstallType : Integer;
eval_bool: boolean;
// eval_bool: boolean;
begin
@ -1048,7 +1047,7 @@ var
i: Integer;
StatusDescription: String;
InstallSummary: String;
prodstr: String;
// prodstr: String;
begin
//do nothing gracefully if we are called by accident.
@ -1122,7 +1121,7 @@ function AnalysisAssessment: boolean;
var
MsgText: String;
MsgResult: Integer;
VerString: String;
// VerString: String;
begin
result := false;

6
builds/install/arch-specific/win32/FirebirdInstallGUIFunctions.inc
View File

@ -54,7 +54,7 @@ var
// get a full list of components.
procedure SetupWizardFormComponentsArrays;
var
i, len: integer;
i: integer;
begin
SetArrayLength(CompGroup1Array,24);
@ -210,7 +210,7 @@ procedure EnumerateObjectList;
//Walk through the components on the InnoSetup install wizard
var
Alist: TStringList;
i, j: integer;
i: integer;
aComponent: string;
begin
@ -297,7 +297,7 @@ var
procedure CreateDebugDlg(aString: String; ADescription: String);
var
DebugText: TMemo;
DebugDescription: TLabel;
// DebugDescription: TLabel;
OKButton: TButton;
begin
DebugDlg := TForm.create(nil);