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

Явно правельный код, с совершенно не явным смыслом.   Найти похожие ветки 

← →
Sectey ©   (2002-11-13 14:49) [0]

Решил создать класс потомок от TCollection. Чтобы, все сделать более менее грамотно решил посматреть, как это делают люди. И в качестве примера стал смотреть TDBGridColumns и TColumn пример более чем исчерпывающий. И сталнулся с таким кодом:

function TDBGridColumns.Add: TColumn;
begin
Result := TColumn(inherited Add);
end;

function TCollection.Add: TCollectionItem;
begin
Result := FItemClass.Create(Self);
end;

т.е. при вызове TDBGridColumns.Add вызывается TCollection.Add с явным приведением типов.
И ВОТ ТУТ-то Я ТУПЛЮ.

Я НЕ ПОНИМАЮ КОГДА ПРОИСХОДИТ ВЫЗОВ конструктора TColumn и почему он вообще должен вызываться?

Заранее благодарен всем кто ответит.

---

← →
Smithson ©   (2002-11-13 14:54) [1]

FItemClass.Create
А FItemClass - это указатель на тип класса. есть в Delphi такая классная штука, как указатель (ссылка) на class.

---

← →
Sectey ©   (2002-11-13 15:04) [2]

Если чесно то первый раз слышу но это круто.

---

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

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



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