File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 1
1
{ ***************************************************************************
2
2
3
- Copyright (c) 2016-2019 Kike Pérez
3
+ Copyright (c) 2016-2022 Kike Pérez
4
4
5
5
Unit : Quick.Log
6
6
Description : Threadsafe Log
7
7
Author : Kike Pérez
8
8
Version : 1.19
9
9
Created : 10/04/2016
10
- Modified : 21/01/2019
10
+ Modified : 10/02/2022
11
11
12
12
This file is part of QuickLib: https://github.com/exilon/QuickLib
13
13
@@ -173,7 +173,7 @@ function OSVersion: String;
173
173
174
174
function TQuickLog.SetLog (logname : string; AddCurrentDateToFileName : Boolean; LimitSizeInMB : Integer = 0 ) : Boolean;
175
175
begin
176
- if logname = ' ' then logname := TPath.GetDirectoryName(ParamStr(0 )) + ' \ ' + TPath.GetFileNameWithoutExtension(ParamStr(0 )) + ' .log' ;
176
+ if logname = ' ' then logname := TPath.GetDirectoryName(ParamStr(0 )) + PathDelim + TPath.GetFileNameWithoutExtension(ParamStr(0 )) + ' .log' ;
177
177
fFMTName := ExtractFilePath(logname) + ExtractFileNameWithoutExt(logname) + ' _%s' + ExtractFileExt(logname);
178
178
fHideHour := True;
179
179
fCurrentDateToFileName := AddCurrentDateToFileName;
You can’t perform that action at this time.
0 commit comments