diff options
-rw-r--r-- | packages/rtl-objpas/src/inc/strutils.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/rtl-objpas/src/inc/strutils.pp b/packages/rtl-objpas/src/inc/strutils.pp index 5def35f24d..19e1cc9abd 100644 --- a/packages/rtl-objpas/src/inc/strutils.pp +++ b/packages/rtl-objpas/src/inc/strutils.pp @@ -819,7 +819,7 @@ Var begin FindMatchesBoyerMooreCaseSensitive(PChar(S),Pchar(OldPattern),Length(S),Length(OldPattern),aMatches,aMatchAll); - For I:=0 to Length(AMatches) do + For I:=0 to pred(Length(AMatches)) do Inc(AMatches[i]); end; @@ -830,7 +830,7 @@ Var begin FindMatchesBoyerMooreCaseInSensitive(PChar(S),Pchar(OldPattern),Length(S),Length(OldPattern),aMatches,aMatchAll); - For I:=0 to Length(AMatches) do + For I:=0 to pred(Length(AMatches)) do Inc(AMatches[i]); end; |