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

Метаклассы ?!?   Найти похожие ветки 

← →
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 вся ветка

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



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