Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.10;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
3-31076
Shota_body
2003-06-11 10:19
2003.07.10
SQL запрос


1-31182
АТ
2003-06-28 02:40
2003.07.10
Надо округлить число типа Extended или Real


1-31352
Darrin
2003-06-27 15:13
2003.07.10
Создание потомка от TForm


14-31401
VEG
2003-06-25 13:09
2003.07.10
Нити в Си


14-31428
DOR
2003-06-23 10:08
2003.07.10
Здравствуйте знатоки.Какие компаненты есть для ShareWare программ