Текущий архив: 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.031 c
