anchor.diff:  var
     s: string;
     values: TStringDynArray;
  -  i: Integer;
  +  i: NativeInt;
     p: Pointer;
     v1, v2: TValue;
     elType: PTypeInfo;
  
positive.code:   if i > -1 then
      Result := s.SubString(Succ(i), s.Length - (Succ(i) + 1))
    else
      Result := string.Empty; 
    {$ENDIF}
  end;
  
  
negative.code:     function Tail: PPropInfoExt; inline;
    end;
    {$ENDIF}
  
    TRttiPropertyExtension = class(TRttiInstanceProperty)
    private
      {$IFDEF DELPHI_XE3_UP}
  