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

Вниз

Зацикливание классов   Найти похожие ветки 

 
SEYD   (2003-06-28 14:00) [0]

вощем есть 2 класса:

Class1=class
.....
Owner:class2;
.....
end;


Class2=class
.....
variable1:class1;
.....
end;

смысл такой, что есть некий класс (в данном случае Class2) который может содержать наследников Class1, но при этом из этих наследников нужен достум к их хозяину (переменной тпа Class2), как это реализовать?

PS: Class1 и Class2 находятся в разных модулях.


 
SEYD   (2003-06-28 14:22) [1]

и если не лень напишите плиз на мыло


 
Тих   (2003-06-28 14:33) [2]

ИМХО никак. Выход - сделать третий модуль, в котором в Interface прописать uses Class1, Class2, создать от них наследников и юзать друг в дружке, что-то навроде

unit Unit4;
interface
uses Unit2, Unit3;

type
Class2Child = class;

Class1Child = class(Class1)
pClass2: Class2Child;
end;

Class2Child = class(Class2)
pClass1: Class1Child;
end;



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

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

Наверх





Память: 0.44 MB
Время: 0.008 c
1-31360
Vick
2003-06-27 17:44
2003.07.10
Закрытие ДОС-окна после выполнения процедуры разархивации файлов


1-31294
CTAPbIi
2003-06-26 15:04
2003.07.10
Как наиболее просто загрузить Icon из exe-файла?


6-31385
Spartak
2003-05-05 08:46
2003.07.10
как узнать открыт ли доступ к определёному каталогу


1-31252
Санек
2003-06-29 19:50
2003.07.10
Праблема с формами.


14-31488
si-riuss
2003-06-24 18:45
2003.07.10
Кто-нибудь пользовал компоненту TTrayIcon из кладовки?





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