| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

перекрестное объявление классов в Object Pascal [D6]

ton2 ©   (2002-11-15 11:08:00) 

создаю 2 своих класса.
type
TClass1=class(TObject)
private
FCl2:TClass2;
...
end;
TClass2=class(TObject)
private
FCl1:TClass1;
...

при попытке откомпилировать - ошибки. 1) в строке FCl2:TClass2; - неопределенный идентификатор TClass2;
2) в строке TClass2=class(TObject) - переорпеделенный идентификатор TClass2.

---

Skier   (2002-11-15 11:11:00) [1]

>ton2

type
TClass2 = class;

TClass1=class(TObject)
private
FCl2:TClass2;
...
end;
TClass2=class(TObject)
private
FCl1:TClass1;
...

---

Наверх