Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Вниз

Class-reference types   Найти похожие ветки 

 
Ш-К   (2004-03-10 10:06) [0]

Есть у меня два класса (один наследник другого):

 TCustItem = class
   Field: string;
   constructor Create;
 end;

 TMyItem = class(TCustItem)
   constructor Create;
 end;

...

constructor TMyItem.Create;
begin
 Field := "TMyItem";
end;

constructor TCustItem.Create;
begin
 Field := "TCustItem";
end;

Есть ещё два класса, тоже один потомок другого:

 TCustItemClass = class of TCustItem;

 TCustList = class
   fitem: TCustItem;
 public
   function GetItemClass: TCustItemClass; virtual;
   constructor Create;
 end;

 TMyList = class(TCustList)
 public
   function GetItemClass: TCustItemClass; override;
 end;

...

constructor TCustList.Create;
begin
 fItem := GetItemClass.Create;
end;

function TMyList.GetItemClass: TCustItemClass;
begin
 result := TMyItem;
end;

function TCustList.GetItemClass: TCustItemClass;
begin
 result := TCustItem;
end;

Вообщем идея такая, что тип поля fItem зависит от того, полем какого класса он является. Для TCustList -> TCustItem, для TMyList -> TMyItem.

Дело в том, что когда я инициализирую fItem, вызывается только конструктор TCustList, не зависимо от того, какой тип у fItem.
Как сделать так, чтобы при инициализации fItem: TMyItem, вызывался конструктор TMyItem?


 
PVOzerski ©   (2004-03-10 10:12) [1]

Как насчет виртуальных конструкторов?


 
Ш-К   (2004-03-10 10:16) [2]

Спасибо.


 
icWasya ©   (2004-03-10 11:05) [3]

Посмотри ещё TCollection и TCollectionItem из модуля Classes



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.033 c
6-1073882691
Hooch
2004-01-12 07:44
2004.03.28
SimplyMAPI


9-1061756950
deep.one
2003-08-25 00:29
2004.03.28
Что лучше спрайты или 3Д


11-1057480255
Avenger[NhT]
2003-07-06 12:30
2004.03.28
SysDcu for Delphi 7


3-1074854331
vantage10
2004-01-23 13:38
2004.03.28
QuickReport отображение CheckBox


8-1069450256
BlaMyr
2003-11-22 00:30
2004.03.28
Как динамически создать TImage и затем обращаться к ней





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский