TInterfacedList.Delete - произойдёт ли вызов

← →
Ega23 © (2007-04-27 10:28) [0]

или явным образом интерфейс к nil надо после удаления из списка приводить?

← →
Ega23 © (2007-04-27 10:29) [1]

Блин. TInterfaceList, кончено...

← →
Сергей М. © (2007-04-27 10:30) [2]

> произойдёт ли вызов _Release

Обязан произойти.
По прямой аналогии с авторазрушением объекта при его удалении из TObjectList.

← →
Игорь Шевченко © (2007-04-27 10:32) [3]

> произойдёт ли вызов _Release

1. Посмотреть
2. Попробовать

procedure TInterfaceList.Delete(Index: Integer);
begin
with FList.LockList do
try
Self.Put(Index, nil); <-------
Delete(Index);
finally
Self.FList.UnlockList;
end;
end;

procedure TInterfaceList.Put(Index: Integer; const Item: IInterface);
begin
with FList.LockList do
try
if (Index < 0) or (Index >= Count) then Error(@SListIndexError, Index);
IInterface(List[Index]) := Item; <---------------
finally
Self.FList.UnlockList;
end;
end;

> По прямой аналогии с авторазрушением объекта при его удалении
> из TObjectList.

Там нюанс есть. Можно на список задачу об удалении возложить, а можно самому.
Собственно, я так и думал, что само удалиццо, но убедиться хотел.

Self.Put(Index, nil); <-------
IInterface(List[Index]) := Item; <---------------

Блин, вот я баран тупорылый!!!
В исходники првым делом залез, а вот то, что Item это входной параметр - чё-то сразу не допёр.

Всё, вопрос снят, большое спсаибо!

TInterfacedList.Delete - произойдёт ли вызов _Release Найти похожие ветки