Fixed min padding for log file name (Thanks Mark Lobanov)

danieleteti · May 30, 2024 · b1e8c98 · b1e8c98
1 parent e028b15
commit b1e8c98
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/loggerpro/LoggerPro.FileAppender.pas b/lib/loggerpro/LoggerPro.FileAppender.pas
@@ -234,7 +234,6 @@ procedure TLoggerProFileAppenderBase.CheckLogFileNameFormat(const LogFileNameFor
 
 function TLoggerProFileAppenderBase.GetLogFileName(const aTag: string; const aFileNumber: Integer): string;
 var
-//  lExt: string;
   lModuleName: string;
   lPath: string;
   lFormat: string;
@@ -253,7 +252,9 @@ function TLoggerProFileAppenderBase.GetLogFileName(const aTag: string; const aFi
   lPath := fLogsFolder;
   lFormat := lFormat
     .Replace('{module}', lModuleName, [rfReplaceAll])
-    .Replace('{number}', aFileNumber.ToString.PadLeft(2,'0') , [rfReplaceAll])
+    .Replace('{number}', aFileNumber.ToString.PadLeft(
+      Max(2,fMaxBackupFileCount.ToString.Length), //min padding 2
+      '0') , [rfReplaceAll])
     .Replace('{tag}', aTag, [rfReplaceAll])
     .Replace('{pid}', CurrentProcessId.ToString.PadLeft(8,'0'), [rfReplaceAll]);
   Result := TPath.Combine(lPath, lFormat);