anchor.diff:  function IsList(RttiContext: TRttiContext; TypeInfo: PTypeInfo): Boolean;
   function CreateInstance(RttiContext: TRttiContext; TypeInfo: PTypeInfo): TValue ;
   {$ENDIF}
  +
  +var
  +  SODefaultIntNone: integer = 0;
   
   implementation
   uses sysutils, RestJsonUtils, variants,
  
positive.code:       end;
      stNull:
        begin
          TValue.Make(-1, TypeInfo, Value);
          result := true;
        end;
      else
  
negative.code:         end else
            Result := False;
        end;
      stNull:
        begin
          TValue.Make(SODefaultIntNone, TypeInfo, Value);
          result := true;
        end;
      else
        Result := False;
      end;
  