Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c