Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
ВнизЯвно правельный код, с совершенно не явным смыслом. Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c