集合类初始化问题 ( 积分: 100 )

假如有如下结构的类：
TSubject //课程
TSelectedSubjects //选修课集合
TStudent //学生
TStudents //学生集合
TSchoolClass //班级
TSchoolClasses //班级集合
TSchool //学校
要求是能够记录每个学生所选修的课程的所有列表，可以显示为xxSchool.Classes[130].Students[32].SelectedSubjects.

我的做法是申明TSubject, TStudent, TSchoolClass为TCollectionItem类型的类，其它对应的则为TCollection类型。TStudent类有一个TSelectedSubjects类型的属性。

我现在的问题是如何初始化TStudent类的实例? 通过跟踪发现它的Create过程根本没有被执行。

我想你应该会，是不是代码哪里错了。
var
student: TStudent;
begin
student := TStudent.create;
...
end;

把你代码简化或者全部贴出来看看

多人接受答案了。