--- Merging r46951 into '.':

U    rtl/objpas/sysutils/syshelp.inc
--- Recording mergeinfo for merge of r46951 into '.':
 U   .

# revisions: 46951
r46951 | michael | 2020-09-25 10:51:21 +0200 (Fri, 25 Sep 2020) | 1 line
Changed paths:
   M /trunk/rtl/objpas/sysutils/syshelp.inc

* Fix bug ID #37814: correctly initialize max chars

git-svn-id: branches/fixes_3_2@47097 -

rtl/objpas/sysutils/syshelp.inc

@@ -960,7 +960,7 @@ begin
   if (I>LS) then
     I:=LS;
   I:=I-L+1;
-  M:=AStartIndex-ACount+1; // 1 based
+  M:=AStartIndex-ACount+2; // 1 based
   if M<1 then
     M:=1;
   while (Result=-1) and (I>=M) do