浏览代码

JsonSerializer Tokyo fix

Unknown 6 年之前
父节点
当前提交
d5022e9ed5
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      Quick.Json.Serializer.pas

+ 4 - 1
Quick.Json.Serializer.pas

@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Author      : Kike Pérez
   Version     : 1.5
   Version     : 1.5
   Created     : 21/05/2018
   Created     : 21/05/2018
-  Modified    : 22/02/2019
+  Modified    : 26/02/2019
 
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
 
@@ -481,6 +481,9 @@ var
   rvalue : TValue;
   rvalue : TValue;
   i : Integer;
   i : Integer;
   rProp : TRttiProperty;
   rProp : TRttiProperty;
+  {$IFNDEF DELPHIRX103_UP}
+  rfield : TRttiField;
+  {$ENDIF}
 begin
 begin
   Result := aObject;
   Result := aObject;
   member := GetJsonPairByName(aJson,aName);
   member := GetJsonPairByName(aJson,aName);