cruntimeclass* pascal cruntimeclass::load()
{
char szclassxxx[64];
cruntimeclass* pclass;
cin>>szclassxxx; //假定这是我们希望动态创建的类名
for(pclass=pfirstclass;pclass!=null;pclass=pclass->m_pnextclass)
{
if(strcmp(szclassxxx,pclass->m_lpszclassname)==0)
return pclass;
}
return null
}
///////////根据cruntimeclass创建对象///////////
cobject* cruntimeclass::createobject()
{
if(m_pfncreateobject==null) return null;
cobject *pobject;