Класс внутри класса

[Prontit]

Добрый день!

Я только осваиваю тему создания классов, так что возможно вопрос будет глупый. Прежде чем его задавать поюзал гугл, но ничего толкового не нашел. А проблема глупая - у меня есть простой класс

Myclass = class(TObject)
i : integer;
s : string;
end;


хочу создать еще один класс, внутри этого, что-то вроде

Myclass = class(TObject)
i : integer;
s : string;
Myclass2 = class(TObject)
o : char;
end;
end;


но компилятор это не принимает, выдает ошибку

[DCC Error] Unit1.pas(23): E2029 ',' or ':' expected but '=' found

Работаю в RAD2010.
-------------------------------
буду очень благодарен если посоветуете хороший материал на эту тему
-------------------------------

Заранее благодарю!

[phomm]

Необходимо опережающее объявление класса

TMyclass2 = class(TObject)
o : char; 
end;
TMyclass = class(TObject)
i : integer;
s : string;
Myclass2 :TmyClass2;
end;

Использование префикса Т рекомендуется при объявлении типов (классов в том числе)

[Prontit]

Сообщение от phomm

Необходимо опережающее объявление класса

TMyclass2 = class(TObject)
o : char; 
end;
TMyclass = class(TObject)
i : integer;
s : string;
Myclass2 :TmyClass2;
end;

Использование префикса Т рекомендуется при объявлении типов (классов в том числе)

Большое спасибо! Значит мне необходимо "отдельно" определить все классы, а потом вложить их друг в друга так как нужно, так и получится иерархия parent-cheld?

[evg_m]

Myclass = class(TObject)
i : integer;
s : string;
Myclass2 : class(TObject)
o : char;
end;
end;

а вот так пройдет?!
с рекордами такое проходит, как будет с классами не знаю.
правилам языка вроде бы не противоречит.

[Prontit]

Сообщение от evg_m

Myclass = class(TObject)
i : integer;
s : string;
Myclass2 : class(TObject)
o : char;
end;
end;

а вот так пройдет?!
с рекордами такое проходит, как будет с классами не знаю.
правилам языка вроде бы не противоречит.

сначала тоже так пытался, не принимает

[JUDAS]

а вот так пройдет?!

[Error] Unit1.pas(14): Class, interface and object types only allowed in type section
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[evg_m]

а вот так пройдет?!

Сообщение от JUDAS

[Error] Unit1.pas(14): Class, interface and object types only allowed in type section

именно это я и хотел услышать, спасибо.

[Человек_Борща]

ТС,в какой среде программируете?

[Prontit]

Сообщение от Человек_Борща

ТС,в какой среде программируете?

RAD Studio 2010

[VintProg]

Может еще шаблоны введут RAD Studio 2010...