Json.Utils bug fix not mswindows

DelphiPraxis · Apr 1, 2019 · 2496e47 · 2496e47
1 parent ef68cb8
commit 2496e47
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Quick.JSON.Utils.pas b/Quick.JSON.Utils.pas
@@ -77,7 +77,11 @@ class function TJsonUtils.JsonFormat(const json : string) : string;
   isEOL := True;
   isIntoString := False;
   isEscape := False;
+  {$IFNDEF NEXTGEN}
   for i := 1 to json.Length do
+  {$ELSE}
+  for i := 0 to json.Length - 1 do
+  {$ENDIF}
   begin
     c := json[i];
     if isIntoString then