Savoir si cette class dérive de ou est un TComponent

Bonjour,

J'ai un problème peu commum. J'ai un AnsiString qui m'indique le type d'un objet (exemple "TBitmap", "TFont", "TButton", ...).

Je n'ai que ça. C'est à dire un ansistring qui me fournit le nom de la class.

Et je voudrait pouvoir savoir si cette class est un dérivé de component (quelque soit le degré).

Je n'ai donc pas trouvé de solution pour l'instant. Je pensais trouver une méthode pour créer une class depuis nom nom pour ensuite utiliser InheritsFrom. Je pense (mais je n'en suis pas certain) que toute les class sont au moins des TObject.

En fait, je n'ai qu'accès au PTypeInfo dont je regarde si le Kind == tkClass et il me reste le Name.

Merci

Edit :
J'ai trouvé quelques chose qui est presque bon mais qui plante :

Code:

---

if (GetClass(Item->Data->TypeInfo->Name)->InheritsFrom(GetClass("TComponent")))

---

J'ai trouver une solution :

Code:

---

1 2 3 4 5 6 7

if ((Item->Data != NULL) && (Item->Data->TypeInfo->Kind == tkClass)) { if (AnsiString("TJvInspectorComponentItem").AnsiCompare(Item->ClassName()) == 0) { dynamic_cast<TJvInspectorComponentItem*>(Item)->AddOwner(Form1); } }

---