Delphi-PRAXiS - Delphi Vorfahren einer Klasse zur Lufzeit ermitteln

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Vorfahren einer Klasse zur Lufzeit ermitteln (https://www.delphipraxis.net/130422-vorfahren-einer-klasse-zur-lufzeit-ermitteln.html)

oki	8. Mär 2009 09:55

Vorfahren einer Klasse zur Lufzeit ermitteln

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	8. Mär 2009 09:57

Re: Vorfahren einer Klasse zur Lufzeit ermitteln

Delphi-Quellcode:

			TObject.ClassName

TObject.ClassParent

oki	8. Mär 2009 10:02

Re: Vorfahren einer Klasse zur Lufzeit ermitteln

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	8. Mär 2009 10:13

Re: Vorfahren einer Klasse zur Lufzeit ermitteln

Sollte so gehen, ja. :)

Alle Zeitangaben in WEZ +1. Es ist jetzt 10:29 Uhr.