From 1d588bea49d15b34b7cddfada87a271def9e8115 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 2 Oct 2019 19:16:20 +0000
Subject: [PATCH] * Fix AM/PM for strtotime

---
 packages/rtl/sysutils.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/rtl/sysutils.pas b/packages/rtl/sysutils.pas
index efa75f6..aa0b4b3 100644
--- a/packages/rtl/sysutils.pas
+++ b/packages/rtl/sysutils.pas
@@ -2979,12 +2979,12 @@ var
          allowedchars:=DecimalSeparator+' ';
          if Separator<>#0 then
            allowedchars:=allowedchars+Separator;
-         while (Cur < Len -1) and (Pos(S[Cur + 1],AllowedChars)=0)
+         while (Cur < Len) and (Pos(S[Cur + 1],AllowedChars)=0)
            and (Pos(S[Cur + 1],Digits)=0) do Inc(Cur);
          ElemLen := 1 + Cur - OffSet;
-         // writeln('  S[Offset] = ',S[1+Offset], ' S[Cur] = ',S[Cur],' ElemLen = ',ElemLen,' -> ', S[1+Offset], ElemLen);
-         // writeln('  Cur = ',Cur, 'S =',S);
-         AmPmStr := Copy(S,1+OffSet, ElemLen);
+//         writeln('  S[Offset] = ',S[Offset], ' S[Cur] = ',S[Cur],' ElemLen = ',ElemLen,' -> ', S[1+Offset], ElemLen);
+//         writeln('  Cur = ',Cur, ', S =',S);
+         AmPmStr := Copy(S,OffSet, ElemLen);
 
          // writeln('AmPmStr = ',ampmstr,' (',length(ampmstr),')');
          //We must compare to TimeAMString before hardcoded 'AM' for delphi compatibility