Vorfahren einer Klasse zur Lufzeit ermitteln

[oki]

Morgen Leute,

kennt jemand eine Möglichkeit, wie ich zur Laufzeit alle Klassenvorfahren einer Klasse ermitteln und anzeigen kann?

Bsp.:
Klasse: TForm
Anzeige in einer Listbox:
- TForm
- TCustomForm
- TScrollingWinControl
- TWinControl
- TControl
- TComponent
- TPersistent
- TObject
Schon mal Dank für die Hilfe.

Gruß oki

[Cyf]

Delphi-Quellcode:

TObject.ClassName
TObject.ClassParent

[oki]

Hi Cyf,

Dank, und dann sollte man sicher durchiterieren können, bis das Ergebnis nil ist. Über ClassName sollte man dann auch den passenden String erhalten.

Ich hatte was von ClassParent im Hinterkopf, meine Suche in der Hilfe war aber erfolglos. Wusste nicht mehr, dass die Funktion ein Member von TObject ist.

Schönes Wochenende noch,

Gruß oki

[Cyf]

Sollte so gehen, ja. :)