Преглед на файлове

Json.Utils bug fix not mswindows

Unknown преди 6 години
родител
ревизия
2496e473e9
променени са 1 файла, в които са добавени 4 реда и са изтрити 0 реда
  1. 4 0
      Quick.JSON.Utils.pas

+ 4 - 0
Quick.JSON.Utils.pas

@@ -77,7 +77,11 @@ begin
   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