opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix compiler warning: "For loop control variable must be simple local variable"

Browse Source
This commit is contained in:
Ansgar Becker
2019-06-03 20:10:31 +02:00
parent 0500f12941
commit 6e2bca2ffa
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/dbconnection.pas
View File

@ -2255,7 +2255,8 @@ end;
procedure TMySQLConnection.DoBeforeConnect;
var
msg: String;
msg,
TryLibraryPath: String;
OldErrorMode: Cardinal;
TryLibraryPaths: TStringList;
begin
@ -2270,17 +2271,18 @@ begin
TryLibraryPaths.Add('libmariadb.dll');
TryLibraryPaths.Add('libmysql.dll');
for LibMysqlPath in TryLibraryPaths do begin
Log(lcDebug, f_('Loading library file %s ...', [LibMysqlPath]));
for TryLibraryPath in TryLibraryPaths do begin
Log(lcDebug, f_('Loading library file %s ...', [TryLibraryPath]));
// Temporarily suppress error popups while loading new library on Windows XP, see #79
OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
SetErrorMode(OldErrorMode or SEM_FAILCRITICALERRORS);
LibMysqlHandle := LoadLibrary(PWideChar(LibMysqlPath));
LibMysqlHandle := LoadLibrary(PWideChar(TryLibraryPath));
SetErrorMode(OldErrorMode);
if LibMysqlHandle = 0 then begin
// Win XP needs libmysql.dll
Log(lcDebug, f_('Could not load %s', [LibMysqlPath]));
Log(lcDebug, f_('Could not load %s', [TryLibraryPath]));
end else begin
LibMysqlPath := TryLibraryPath;
Break;
end;
end;