C++builder 递归获取继承基类根类

    TClass ClassRef;
    ListBox1->Clear();
    ClassRef = Sender->ClassType();
    while (ClassRef != NULL)
    {
        ListBox1->Items->Add(ClassRef->ClassName());
        ClassRef = ClassRef->ClassParent();
    };

#include <memory>       //For STL auto_ptr class

TMetaClass *MetaClass;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<TClassFinder> myClassFinder(new TClassFinder(MetaClass, False));
  TGraphicClass mygraphclass = (TGraphicClass) (myClassFinder->GetClass(Edit2->Text));
//  TGraphicClass mygraphclass = (TGraphicClass) GetClass(Edit2->Text);
  Edit1->Text = GraphicExtension(mygraphclass);
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  MetaClass = __classid(TIcon); // ico
  RegisterClasses(&MetaClass, );
  MetaClass = __classid(Graphics::TBitmap); // bmp
  RegisterClasses(&MetaClass, );
  MetaClass = __classid(TMetafile); // emf
  RegisterClasses(&MetaClass, );
  MetaClass = __classid(TShape);  // no graphic extension
  RegisterClasses(&MetaClass, );
  MetaClass = __classid(TImage); // no graphic extension
  RegisterClasses(&MetaClass, );
}

http://docwiki.embarcadero.com/CodeExamples/XE8/en/ClassesGetClass_%28C%2B%2B%29