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