Форум: "Основная";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];
Вниз
Метаклассы ?!? Найти похожие ветки
← →
Beerlover (2003-03-17 04:07) [0]Чувствую что дело в этом, а понять не могу...
вот код:
uses Classes, DnsQuestion;
type CDnsQuestions = class
Private
mCol: TCollection;
mItem: TCollectionItemClass;
function getItem ( vntIndexKey: Variant ): CDnsQuestion;
function getCount(): Longint;
function getNewEnum(): IUnknown;
Constructor CDnsQuestions();
Destructor qCDnsQuestions();
Public
Property Item[vntIndexKey: Variant]: CDnsQuestion read getItem;
end;
implementation
Constructor CDnsQuestions.CDnsQuestions();
begin
mCol :=TCollection.create(mItem);
End;
function CDnsQuestions.getItem ( vntIndexKey: Variant ): CDnsQuestion;
begin
Result := mCol.items[vntIndexKey];
end;
На последнюю строчку пишет несовместимые типы CDNSQuestion & TCollectionItem.
(CDNSQuestion это мой подкласс, фактически просто структура, я хочу их хранить в TCollection)
А вот как назначить чтобы в mCol были не TCollectionItem а мои...
Я вот наткнулся на метакласс TCollectionItemClass, думаю что это оно мне надо,а вот как что - не понимаю...
← →
Юрий Зотов (2003-03-17 04:42) [1]Даже не знаю, как ответить - очень много нестыковок, чувствуются серьезные пробелы. Предлагаю так - для начала посмотрите, что такое коллекции и с чем их едят. Вот здесь это объясняется простыми русскими словами, "на пальцах" и с примерами:
http://www.delphikingdom.com/helloworld/tcollection.htm
А потом, если останутся вопросы - задавайте.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c
