Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: 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 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-87888
khalev
2003-03-16 11:14
2003.03.27
StringGrid


3-87838
dums
2003-03-10 08:00
2003.03.27
много потоков на одну базу данных :))


8-88088
Ssergy
2002-12-15 00:09
2003.03.27
Вычитание из одной поверхности другой


1-87979
AlexSSS
2003-03-18 09:38
2003.03.27
свои компоненты


3-87883
T{}r(l-l
2003-03-11 11:12
2003.03.27
Cursor+MSSQL