Форум: "Основная";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

зачем нужно 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.043 c