From b1e8c98ea16d5b7ed5c1259d8c2c760c0a8c8a87 Mon Sep 17 00:00:00 2001
From: Daniele Teti <d.teti@bittime.it>
Date: Thu, 30 May 2024 09:11:05 +0200
Subject: [PATCH] Fixed min padding for log file name (Thanks Mark Lobanov)

---
 lib/loggerpro/LoggerPro.FileAppender.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/loggerpro/LoggerPro.FileAppender.pas b/lib/loggerpro/LoggerPro.FileAppender.pas
index acb1bab6..427b4504 100644
--- 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);