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

Вниз

зачем нужно TInterfacedObject(Result).FRefCount := 1 ?   Найти похожие ветки 

 
Bless ©   (2007-04-06 12:09) [0]

Смотрю TInterfacedObject

class function TInterfacedObject.NewInstance: TObject;
begin
 Result := inherited NewInstance;
 TInterfacedObject(Result).FRefCount := 1;
end;

procedure TInterfacedObject.AfterConstruction;
begin
 InterlockedDecrement(FRefCount);
end;

Какой смысл в выделенных строках?
Что изменилось бы если бы эти две строчки обе просто убрали?


 
_Аноним   (2007-04-06 12:12) [1]

Чтобы сразу в процессе конструктора не разрушился по _Release


 
Bless ©   (2007-04-06 12:58) [2]

Не понял. А можно на примере?



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

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

Наверх




Память: 0.46 MB
Время: 0.044 c
10-1133297958
volser
2005-11-29 23:59
2007.06.03
Создать Client/Server CORBA в Delphi7


11-1157643265
mdw
2006-09-07 19:34
2007.06.03
Новости сайта kolnmck.ru


15-1178766213
Slider007
2007-05-10 07:03
2007.06.03
С днем рождения ! 10 мая


15-1178195190
SkySpeed
2007-05-03 16:26
2007.06.03
Как выявить причину упадка грызуна и клавы?


2-1179302239
Ol4ik
2007-05-16 11:57
2007.06.03
DBLookupListBox