MFC сериализация

я должен сериализовать CList базовых и производных классов. Как я могу это сделать.

typedef CList<Student*, Student*> StVec;

class Student : public CObject
{
public:
DECLARE_SERIAL(Student);

Student();
Student(Student& s);
Student(CString _name, CString _last, int _age);
virtual ~Student(void);

virtual void cin();
virtual void cout();

virtual void Serialize(CArchive& ar);

static Student* FromInput();

inline const CString GetName(){return name;}
inline const CString GetLastName(){return last_name;}
inline const int GetAge(){return age;}

virtual inline Student& operator=( const Student &s )
{
name = s.name;
last_name = s.last_name;
age = s.age;
return *this;
}

protected:
CString name;
CString last_name;
int age;
};

class Warden : public Student
{
protected:
virtual void Serialize(CArchive& ar);
UINT salary;
};

class Group : public CObject
{
public:
DECLARE_SERIAL(Group);

enum FindType { First = 0, Last, All};
typedef bool (*StudentsFindCallback) (Student* student, void* condition);

Group(){ name = _T("Default Group"); }
Group(CString _name);
Group(Group& s);

~Group();

void CreateUser();
void ShowUsers();
//StVecOfIt FindUser(StudentsFindCallback f, void* condition, FindType ft);
inline Student* getStudent(POSITION pos) {return students->GetNext(pos); }
inline void DeleteUser(POSITION it){ students->RemoveAt(it); }
virtual void Serialize(CArchive& ar);
void Clean();

/*static bool FindbyName(Student* student, void* condition);
static bool FindbyLastName(Student* student, void* condition);
static bool FindbyAge(Student* student, void* condition);*/

virtual inline Group& operator=( const Group &s )
{
name = s.name;
students = s.students;
return *this;
}

protected:
CString name;
StVec* students;
};

void Student::Serialize(CArchive& ar)
{
CObject::Serialize( ar );

if (ar.IsStoring())
{
ar.SerializeClass(Student::GetRuntimeClass());
ar << name << last_name << age;
}
else
{
ar.SerializeClass(Student::GetRuntimeClass());
ar >> name >> last_name >> age;
}
}
void Group::Serialize(CArchive& ar)
{
ar.SerializeClass(RUNTIME_CLASS(Group));

if (ar.IsStoring())
{
ar << (int)students->GetCount();

POSITION pos = students->GetHeadPosition();
while(pos != NULL)
{
Student* student = students->GetNext(pos);

student->Serialize(ar);
}
}
else
{
Clean();
int count = 0;
ar >> count;

for(INT_PTR i = 0; i < count; ++i)
{
Student* st = new Student();
st->Serialize(ar);
students->AddTail(st);
}
}
}

Я нашел статью в CodeProject но я не могу понять это вообще.

Конечно, я могу добавить флаг, который указывает тип класса. Также я могу сериализовать в производный класс и, если производные свойства пустые static_cast вывести его в базовый класс. Или я думаю об использовании CArchive::ReadObject или же CArchive::ReadClass загружать классы, но есть ли другой способ сделать это?