Explorar el Código

small corrections

Unknown hace 7 años
padre
commit
44a7eef22d
Se han modificado 2 ficheros con 2 adiciones y 1 borrados
  1. 1 1
      Quick.Config.Provider.Json.pas
  2. 1 0
      Quick.Config.pas

+ 1 - 1
Quick.Config.Provider.Json.pas

@@ -126,7 +126,7 @@ begin
           Streamer.Free;
         end;
         {$ELSE}
-        TJson.JsonToObject(Self,TJSONObject(TJSONObject.ParseJSONValue(json)));
+        TJson.JsonToObject(Self,TJSONObject(TJSONObject.ParseJSONValue(json.Text)));
         {$ENDIF}
       {$ENDIF}
       if Assigned(cConfig) then cConfig.Free;

+ 1 - 0
Quick.Config.pas

@@ -47,6 +47,7 @@ uses
     fpjsonrtti;
     {$ELSE}
     DBXJSON,
+    System.JSON,
     Rest.Json.Types,
     Rest.Json;
     {$ENDIF}