anchor.diff:        Result := LProp;
         Break;
       end;
  -  end;  
  +  end;
     {$ENDIF}
   end;
   
  
positive.code:     function Tail: PPropInfoExt; inline;
    end;
    {$ENDIF}
   
    TRttiPropertyExtension = class(TRttiInstanceProperty)
    private
      {$IFDEF DELPHI_XE3_UP}
  
negative.code:   if i > -1 then
      Result := s.SubString(Succ(i), s.Length - (Succ(i) + 1))
    else
      Result := string.Empty;
    {$ENDIF}
  end;
  
  