Merge branch 'feature/95-ustrutils-bug' into develop

delphidabbler · delphidabbler · commit 60f68dc8f0ac · 2023-04-02T18:48:59.000+01:00
diff --git a/Src/UStrUtils.pas b/Src/UStrUtils.pas
@@ -404,7 +404,7 @@ function StrCompressWhiteSpace(const Str: UnicodeString): UnicodeString;
       Inc(ResCount);
       // Skip past any following white space
       Inc(Idx);
-      while TCharacter.IsWhiteSpace(Str[Idx]) do
+      while (Idx <= Length(Str)) and TCharacter.IsWhiteSpace(Str[Idx]) do
         Inc(Idx);
     end
     else
