Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.31;
Скачать: CL | DM;

Вниз

Время жизни объекта.   Найти похожие ветки 

 
Дмитрий_С   (2008-07-13 19:15) [0]

Есть к примеру два интерфейса:

IIntrFirst = interface
 procedure JoinIntSecond(I: IUnknown);
end;

IIntrSecond = interface
 procedure JoinIntFirst(I: IUnknown);
end;

Реализция:
TIntrFirst = class(IIntrFirst)
 FSecond: IUnknown;
 procedure JoinIntSecond(I: IUnknown);
end;
procedure TIntrFirst.JoinIntSecond(I: IUnknown);
begin
 FSecond := I;
end;

TIntrSecond = class(IIntrFirst)
 FFirst: IUnknown;
 procedure JoinIntFirst(I: IUnknown);
end;
procedure TIntrFirst.JoinIntFirst(I: IUnknown);
begin
 FFirst:= I;
end;

Затем следующий код:
First.JoinIntSecond(Second);
Second.JoinIntSecond(First);
First := nil;
Second := nil;

После этого объекты освободятся?


 
Sergey Masloff   (2008-07-13 20:01) [1]

Ну в твоем случае вообще ни в каком случае не освободится поскольку ничего из IUnknown ты не реализовал а Пушкин за тебя это делать не будет ;-)

 Приведи более конкретный пример.


 
DrPass ©   (2008-07-13 20:09) [2]

...но если бы ты их унаследовал от TInterfacedObject...
А вообще, практика - критерий истины. Самому посмотреть, вызывается ли _AddRef при присваивании FFirst:= I, вызывается ли деструктор при First:= nil, намного полезнее и познавательнее, чем спрашивать на форуме



Страницы: 1 вся ветка

Текущий архив: 2008.08.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-1197016344
@!!ex
2007-12-07 11:32
2008.08.31
Положение окна на экране(Z)


4-1195322398
Bora_ru
2007-11-17 20:59
2008.08.31
Координаты значка на рабочем столе


4-1195513824
Alx2k
2007-11-20 02:10
2008.08.31
Окно выбора значка


2-1216883464
kernel
2008-07-24 11:11
2008.08.31
Си => Паскаль


3-1204266576
Barsky
2008-02-29 09:29
2008.08.31
Правильный запрос на FireBird SQL