2
0
Эх сурвалжийг харах

[jsonSerializer] fixed deserialization from delphi standard list serialization

Exilon 5 жил өмнө
parent
commit
33f5db7c75

+ 1 - 1
Quick.Json.Serializer.pas

@@ -593,7 +593,7 @@ begin
 
 
   member := nil;
   member := nil;
   //check if exists List (denotes delphi json serialized) or not (normal json serialized)
   //check if exists List (denotes delphi json serialized) or not (normal json serialized)
-  if aJson.ClassType = TJSONPair then member := GetJsonPairValueByName(aJson,aName);
+  if aJson.ClassType = TJSONObject then member := GetJsonPairValueByName(aJson,aName);
   if member = nil then
   if member = nil then
   begin
   begin
     if aJson.ClassType <> TJSONArray then raise EJsonDeserializeError.CreateFmt('Not valid value for "%s" List',[aName]);
     if aJson.ClassType <> TJSONArray then raise EJsonDeserializeError.CreateFmt('Not valid value for "%s" List',[aName]);