Главная страница
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.014 c
1-31191
ОРЕН
2003-06-27 21:24
2003.07.10
Вставить строку в чужую программу.


1-31203
Dream
2003-06-28 12:43
2003.07.10
проблемы с memo ( смешно конечно но я по моему уже гоню )


14-31461
rosl
2003-06-24 06:02
2003.07.10
ini


3-31096
me2
2003-06-16 15:05
2003.07.10
Использование EhLibIBX (сортировки полей таблицы)


1-31330
VISA
2003-06-27 10:53
2003.07.10
TImageList