opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 10:02:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

* Silence various compiler warnings about non initialized variables.

Browse Source 
* Globally turn off platform warnings
This commit is contained in:
Ansgar Becker
2013-07-16 04:45:28 +00:00
parent 77df51ae5f
commit 51c27f7a27
7 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
packages/delphiXE/heidisql.dproj
View File

@ -28,6 +28,7 @@
<PropertyGroup Condition="'$(Base)'!=''"> <PropertyGroup Condition="'$(Base)'!=''">
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias> <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
<DCC_UnitSearchPath>..\..\components\graphicex;..\..\components\synapse;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> <DCC_UnitSearchPath>..\..\components\graphicex;..\..\components\synapse;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<DCC_SYMBOL_PLATFORM>false</DCC_SYMBOL_PLATFORM>
<BRCC_OutputDir>..\..\res</BRCC_OutputDir> <BRCC_OutputDir>..\..\res</BRCC_OutputDir>
<DCC_DependencyCheckOutputName>heidisql.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>heidisql.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>

2
source/dbconnection.pas
View File

@ -2086,7 +2086,6 @@ function TMySQLConnection.GetServerVersionInt: Integer;
var var
rx: TRegExpr; rx: TRegExpr;
begin begin
Result := -1;
rx := TRegExpr.Create; rx := TRegExpr.Create;
rx.Expression := '(\d+)\.(\d+)\.(\d+)'; rx.Expression := '(\d+)\.(\d+)\.(\d+)';
if rx.Exec(FServerVersionUntouched) then begin if rx.Exec(FServerVersionUntouched) then begin
@ -5447,7 +5446,6 @@ begin
Dialog.editUsername.Visible := _type=1; Dialog.editUsername.Visible := _type=1;
Dialog.editPassword.Visible := _type=2; Dialog.editPassword.Visible := _type=2;
Dialog.ShowModal; Dialog.ShowModal;
Result := buf;
case _type of case _type of
1: Result := PAnsiChar(AnsiString(Dialog.editUsername.Text)); 1: Result := PAnsiChar(AnsiString(Dialog.editUsername.Text));
2: Result := PAnsiChar(AnsiString(Dialog.editPassword.Text)); 2: Result := PAnsiChar(AnsiString(Dialog.editPassword.Text));

2
source/exportgrid.pas
View File

@ -800,6 +800,7 @@ begin
S.WriteString(tmp); S.WriteString(tmp);
if radioOutputCopyToClipboard.Checked then begin if radioOutputCopyToClipboard.Checked then begin
HTML := nil;
// SynEdit's exporter is slow on large strings, see issue #2903 // SynEdit's exporter is slow on large strings, see issue #2903
if S.Size < 100*SIZE_KB then begin if S.Size < 100*SIZE_KB then begin
case ExportFormat of case ExportFormat of
@ -812,7 +813,6 @@ begin
Exporter.Free; Exporter.Free;
end; end;
efHTML: HTML := S; efHTML: HTML := S;
else HTML := nil;
end; end;
end; end;
StreamToClipboard(S, HTML, (ExportFormat=efHTML) and (HTML <> nil)); StreamToClipboard(S, HTML, (ExportFormat=efHTML) and (HTML <> nil));

3
source/grideditlinks.pas
View File

@ -717,7 +717,8 @@ begin
if MicroSecondsPrecision > 0 then begin if MicroSecondsPrecision > 0 then begin
DotPos := Length(FMaskEdit.Text) - Pos('.', ReverseString(FMaskEdit.Text)) + 2; DotPos := Length(FMaskEdit.Text) - Pos('.', ReverseString(FMaskEdit.Text)) + 2;
ms := MakeInt(Copy(FMaskEdit.Text, DotPos, Length(FMaskEdit.Text))); ms := MakeInt(Copy(FMaskEdit.Text, DotPos, Length(FMaskEdit.Text)));
end; end else
ms := 0;
case FTableColumn.DataType.Index of case FTableColumn.DataType.Index of
dtYear: begin dtYear: begin

1
source/helpers.pas
View File

@ -3022,6 +3022,7 @@ begin
OS := 'Windows NT '+IntToStr(Win32MajorVersion)+'.'+IntToStr(Win32MinorVersion); OS := 'Windows NT '+IntToStr(Win32MajorVersion)+'.'+IntToStr(Win32MinorVersion);
UserAgent := APPNAME+'/'+MainForm.AppVersion+' ('+OS+'; '+ExtractFilename(Application.ExeName)+'; '+FOwner.Name+')'; UserAgent := APPNAME+'/'+MainForm.AppVersion+' ('+OS+'; '+ExtractFilename(Application.ExeName)+'; '+FOwner.Name+')';
NetHandle := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); NetHandle := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
UrlHandle := nil;
try try
UrlHandle := InternetOpenURL(NetHandle, PChar(FURL), nil, 0, INTERNET_FLAG_RELOAD, 0); UrlHandle := InternetOpenURL(NetHandle, PChar(FURL), nil, 0, INTERNET_FLAG_RELOAD, 0);

2
source/main.pas
View File

@ -2995,7 +2995,6 @@ begin
end; end;
{$WARN SYMBOL_PLATFORM OFF}
function TMainForm.RunQueryFiles(Filenames: TStrings; Encoding: TEncoding): Boolean; function TMainForm.RunQueryFiles(Filenames: TStrings; Encoding: TEncoding): Boolean;
var var
i: Integer; i: Integer;
@ -3091,7 +3090,6 @@ begin
AbsentFiles.Free; AbsentFiles.Free;
PopupFileList.Free; PopupFileList.Free;
end; end;
{$WARN SYMBOL_PLATFORM ON}
procedure TMainForm.SessionConnect(Sender: TObject); procedure TMainForm.SessionConnect(Sender: TObject);

2
source/trigger_editor.pas
View File

@ -172,8 +172,6 @@ end;
function TfrmTriggerEditor.ApplyModifications: TModalResult; function TfrmTriggerEditor.ApplyModifications: TModalResult;
var
sql: String;
begin begin
// Edit mode means we drop the trigger and recreate it, as there is no ALTER TRIGGER. // Edit mode means we drop the trigger and recreate it, as there is no ALTER TRIGGER.
Result := mrOk; Result := mrOk;