Главная страница
    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.44 MB
Время: 0.054 c
14-88207
aga
2003-03-10 15:27
2003.03.27
Електоронные книги


1-87907
Silver_
2003-03-17 09:29
2003.03.27
Form_ActiveControl_OnChange(Sender: TObject);


1-87994
MiXen
2003-03-13 22:02
2003.03.27
замена Yes на Да


1-88047
WMag
2003-03-14 23:53
2003.03.27
Коллекции данных


1-87991
Yozch_
2003-03-13 22:04
2003.03.27
Как узнать ширину текста в Label.caption и пикселах?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский