Browse Source

[jsonUtils] fixed Json file not properly formatted in case a string contains a single double quote (Issue #39)

Exilon 5 years ago
parent
commit
eb1b74b7ee
1 changed files with 1 additions and 1 deletions
  1. 1 1
      Quick.JSON.Utils.pas

+ 1 - 1
Quick.JSON.Utils.pas

@@ -121,8 +121,8 @@ begin
           end;
           end;
       end;
       end;
     end;
     end;
-    isEscape := (c = '\') and not isEscape;
     if not isEscape and (c = '"') then isIntoString := not isIntoString;
     if not isEscape and (c = '"') then isIntoString := not isIntoString;
+    isEscape := (c = '\') and not isEscape;
   end;
   end;
 end;
 end;