浏览代码

small corrections

Unknown 7 年之前
父节点
当前提交
44a7eef22d
共有 2 个文件被更改,包括 2 次插入1 次删除
  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;
           Streamer.Free;
         end;
         end;
         {$ELSE}
         {$ELSE}
-        TJson.JsonToObject(Self,TJSONObject(TJSONObject.ParseJSONValue(json)));
+        TJson.JsonToObject(Self,TJSONObject(TJSONObject.ParseJSONValue(json.Text)));
         {$ENDIF}
         {$ENDIF}
       {$ENDIF}
       {$ENDIF}
       if Assigned(cConfig) then cConfig.Free;
       if Assigned(cConfig) then cConfig.Free;

+ 1 - 0
Quick.Config.pas

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