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