Move one constant out of const.inc into TAppSettings structure

This commit is contained in:
Ansgar Becker
2020-08-07 08:33:24 +02:00
parent a34e2ab690
commit 154272d9b3
2 changed files with 2 additions and 2 deletions

View File

@ -214,6 +214,7 @@ type
FRestoreTabsInitValue: Boolean; FRestoreTabsInitValue: Boolean;
FSettingsFile: String; FSettingsFile: String;
FSettings: Array[TAppSettingIndex] of TAppSetting; FSettings: Array[TAppSettingIndex] of TAppSetting;
const FPortableLockFileBase: String='portable.lock';
procedure InitSetting(Index: TAppSettingIndex; Name: String; procedure InitSetting(Index: TAppSettingIndex; Name: String;
DefaultInt: Integer=0; DefaultBool: Boolean=False; DefaultString: String=''; DefaultInt: Integer=0; DefaultBool: Boolean=False; DefaultString: String='';
Session: Boolean=False); Session: Boolean=False);
@ -3399,7 +3400,7 @@ begin
FReads := 0; FReads := 0;
FWrites := 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. // Use filename from command line. If not given, use file in directory of executable.
rx := TRegExpr.Create; rx := TRegExpr.Create;

View File

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