opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Remove dead code

Browse Source
This commit is contained in:
Ansgar Becker
2009-11-08 16:17:12 +00:00
parent e1a9bb0281
commit b320caef17
1 changed files with 0 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/main.pas
View File

@@ -716,8 +716,6 @@ type
EditVariableForm : TfrmEditVariable;
FileNameSessionLog : String;
FileHandleSessionLog : Textfile;
SqlMessages : TWideStringList;
SqlMessagesLock : TRtlCriticalSection;
dsShowEngines,
dsHaveEngines,
dsCollations,
@@ -1065,9 +1063,6 @@ var
filename : String;
begin
DoDisconnect;
EnterCriticalSection(SqlMessagesLock);
FreeAndNil(SqlMessages);
LeaveCriticalSection(SqlMessagesLock);
OpenRegistry;
// Position of Toolbars
@@ -1190,11 +1185,6 @@ begin
CachedTableLists := TWideStringList.Create;
InitializeCriticalSection(SqlMessagesLock);
EnterCriticalSection(SqlMessagesLock);
SqlMessages := TWideStringList.Create;
LeaveCriticalSection(SqlMessagesLock);
Delimiter := GetRegValue(REGNAME_DELIMITER, DEFAULT_DELIMITER);
// Delphi work around to force usage of Vista's default font (other OSes will be unaffected)