fixed json value parse bug

add ```JsonString := Trim(JsonString);``` to TJsonValue.Parse
rilyu · Dec 22, 2020 · afad8e4 · afad8e4
1 parent 54a9730
commit afad8e4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Jsons.pas b/src/Jsons.pas
@@ -745,6 +745,7 @@ function TJsonValue.GetIsNull: Boolean;
 procedure TJsonValue.Parse(JsonString: String);
 begin
   Clear;
+  JsonString := Trim(JsonString);
   FValueType := AnalyzeJsonValueType(JsonString);
   case FValueType of
     jvNone: RaiseParseError(JsonString);