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:   function Sanitize(AData: String): string;
    begin
      Result := AData;
      Result := StringReplace(Result, '" :', '":', [rfReplaceAll]);
      Result := StringReplace(Result, '": ', '":', [rfReplaceAll]);
    end;
  
  var
  
negative.code:   public
      function AsInt64: Int64;
    end;
    {$IFEND}
  
    TRttiFieldHelper = class helper for TRttiField
    public
  