anchor.diff:      function AsJsonArray: TJSONArray;
     end;
   
  -  {$IFDEF DELPHI_2010}
  +  {$IF defined(DELPHI_2010) or defined(DELPHI_XE)}
     TJsonObjectHelper = class helper for TJsonObject
     public
       function Get(const PairName: UnicodeString): TJSONPair; overload;
  
positive.code:   public
      function AsInt64: Int64;
    end;
    {$ENDIF}
  
    TRttiFieldHelper = class helper for TRttiField
    public
  
negative.code:   Result := StrToInt64(ToString);
  end;
  
  {$IFEND}
  
  end.
  