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**

markieren

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.

Vorfahren einer Klasse zur Lufzeit ermitteln

Vorfahren einer Klasse zur Lufzeit ermitteln

Re: Vorfahren einer Klasse zur Lufzeit ermitteln

Re: Vorfahren einer Klasse zur Lufzeit ermitteln

Re: Vorfahren einer Klasse zur Lufzeit ermitteln

Forumregeln

Cyf Registriert seit: 30. Mai 2008 407 Beiträge Lazarus	#2 Re: Vorfahren einer Klasse zur Lufzeit ermitteln 8. Mär 2009, 10:57 markieren Delphi-Quellcode: TObject.ClassName TObject.ClassParent Man kann einen Barbier definieren als einen, der alle diejenigen rasiert, und nur diejenigen, die sich nicht selbst rasieren. Rasiert sich der Barbier?
	Zitat

Cyf Registriert seit: 30. Mai 2008 407 Beiträge Lazarus	#4 Re: Vorfahren einer Klasse zur Lufzeit ermitteln 8. Mär 2009, 11:13 Sollte so gehen, ja. Man kann einen Barbier definieren als einen, der alle diejenigen rasiert, und nur diejenigen, die sich nicht selbst rasieren. Rasiert sich der Barbier?
	Zitat