Главная страница
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.03 c
1-88055
Лео
2003-03-14 21:31
2003.03.27
Кодирование DES


14-88130
dimonf
2003-03-10 09:52
2003.03.27
Как перевести проект на финский язык???


14-88147
kostya2000
2003-03-11 20:14
2003.03.27
3.14


14-88211
Феликс
2003-03-10 20:09
2003.03.27
гы-гы-гы! Кличко во втором раунде завалили :)


14-88250
Мыш
2003-03-08 15:33
2003.03.27
Как изменить работу стандартных компонентов ?