Избавление сопрягаемого объекта с ARC против без - Delphi

Question

Я работаю над проектом, где я имею сопрягаемую TRectangle, как это:

IBoardShape = interface(IInterface) 
    function GetColor: integer; 
    procedure SetColor(const aColor: integer); 
    property Color: integer read GetColor write SetColor; 
end; 

TGameRectangle = class(TRectangle, IBoardShape) 
private 
    FColor: integer; 
    procedure SetColor(const aColor: integer); 
    function GetColor: integer; 
    property Color: integer read GetColor write SetColor; 
protected 
    {$IFNDEF AUTOREFCOUNT} 
    [Volatile] FRefCount: Integer; 
    {$ENDIF} 
    function _AddRef: Integer; stdcall; 
    function _Release: Integer; stdcall; 
end; 

_AddRef и _Release такого же, как в InterfacedObject:

function TGameRectangle._AddRef: Integer; 
begin 
{$IFNDEF AUTOREFCOUNT} 
    Result := AtomicIncrement(FRefCount); 
{$ELSE} 
    Result := __ObjAddRef; 
{$ENDIF} 
end; 

function TGameRectangle._Release: Integer; 
begin 
{$IFNDEF AUTOREFCOUNT} 
    Result := AtomicDecrement(FRefCount); 
    if Result = 0 then 
    Destroy; 
{$ELSE} 
    Result := __ObjRelease; 
{$ENDIF} 
end; 

Чтобы создать прямоугольник, что я делаю это:

var 
    lRect: TGameRectangle; 
begin 
    lRect := TGameRectangle.Create(self); 
    lRect.Parent := Layout1; 
    lRect.Align := TAlignLayout.alClient; 
    FIntObj := lRect as IBoardShape; 

Позже я бесплатно его, установив FIntObj на номер nil. В Windows, когда я следую _Release, счетчик ссылок равен 1, и счетчик уменьшается и объект освобождается. При работе в Android количество ссылок составляет 5, когда я вхожу в _Release (счетчик ссылок отображается внутри __ObjRelease). Поскольку счетчик ссылок по-прежнему высок, объект не освобождается.

Я воссоздал это в простой демонстрации, используя в основном только код, который я разместил здесь. Может ли кто-нибудь объяснить, что отличается в ARC, что приводит к тому, что счетчик ссылок настолько высок?

Answer 1

Все это просто не нужно в ARC, потому что ARC уже подсчитывает ссылки и управляет пожизненным временем.

Под ARC вы можете и должны полагаться на реализацию IInterface из базового класса.

Под ARC ваш код должен выглядеть следующим образом:

TGameRectangle = class(TRectangle, IBoardShape) 
private 
    FColor: integer; 
    procedure SetColor(const aColor: integer); 
    function GetColor: integer; 
    property Color: integer read GetColor write SetColor; 
end; 

---

Ваша большая проблема в том, что ваш код не может работать на не-ARC платформ. Это потому, что у вас есть принадлежащий TComponent потомок. Таким образом, владелец имеет ссылку на объект прямоугольника и будет пытаться уничтожить, когда он будет уничтожен. В дополнение к этому, ваш счетчик ссылок на интерфейс также предполагает право собственности. Как правило, объекты должны иметь ровно один владелец. Ваш дизайн дает им два.

Вы должны на платформах, отличных от ARC, управлять временем жизни через подсчет ссылок на интерфейс, если у объекта нет владельца. Я обсудил это более подробно в своем answer с вашим предыдущим вопросом.