Move one constant out of const.inc into TAppSettings structure

HeidiSQL · Aug 7, 2020 · 154272d · 154272d
1 parent a34e2ab
commit 154272d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -214,6 +214,7 @@   TAppSettings = class(TObject)
       FRestoreTabsInitValue: Boolean;
       FSettingsFile: String;
       FSettings: Array[TAppSettingIndex] of TAppSetting;
+      const FPortableLockFileBase: String='portable.lock';
       procedure InitSetting(Index: TAppSettingIndex; Name: String;
         DefaultInt: Integer=0; DefaultBool: Boolean=False; DefaultString: String='';
         Session: Boolean=False);
@@ -3399,7 +3400,7 @@ constructor TAppSettings.Create;
   FReads := 0;
   FWrites := 0;
 
-  PortableLockFile := ExtractFilePath(ParamStr(0)) + SPortableLockFile;
+  PortableLockFile := ExtractFilePath(ParamStr(0)) + FPortableLockFileBase;
 
   // Use filename from command line. If not given, use file in directory of executable.
   rx := TRegExpr.Create;

diff --git a/source/const.inc b/source/const.inc
@@ -101,7 +101,6 @@ const
   MsgUnhandledNetType: String = 'Unhandled connection type (%d)';
   MsgDisconnect: String = 'Connection to %s closed at %s';
   MsgInvalidColumn: String = 'Column #%d not available. Query returned %d columns and %d rows.';
-  SPortableLockFile: String = 'portable.lock';
   FILEFILTER_SQLITEDB = '*.sqlite3;*.sqlite;*.db;*.s3db';
   FILEEXT_SQLITEDB = 'sqlite3';