Klassenname als String

**Jonas Shinaniganz**

Wenn ich zum Beispiel eine Klasse habe:

Delphi-Quellcode:

			type

  THeinrich = class

    procedure Hallo;

  end;

procedure THeinrich.Hallo;

begin

  ShowMessage('Hello my name is ' + MeinKlassenName);

end;

Das ich eine Message bekomme in der der Name der eigenen Klasse steht. In diesem Beispiel: "Hello my name is THeinrich".

Geht sowas schon? Also universell für alle Klassen?

**DeddyH**

Klick

**Jonas Shinaniganz**

Perfekt!

Thanks.

**himitsu**

Nur zur Info:

UnitName, QualifiedClassName und UnitScope sind auch ganz praktisch.

UnitName gibt's schon länger ... irgendwo zwischen D2006 und D2010

Das Andere ist neuer (XE2 oder später), aber indirekt gibt es das auch schon länger, denn über die neue RTTI kommt man auch an den QualifiedName ran, sowie nochmals an den den UnitName.

Klassenname als String

Klassenname als String

AW: Klassenname als String

AW: Klassenname als String

AW: Klassenname als String

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.544 Beiträge Delphi 11 Alexandria	#2 AW: Klassenname als String 8. Nov 2012, 15:58 Klick Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Jonas Shinaniganz Registriert seit: 30. Aug 2011 249 Beiträge Delphi XE5 Ultimate	#3 AW: Klassenname als String 8. Nov 2012, 15:59 Perfekt! Thanks. Die Leiter der Entwicklungsabteilung dreht total am Mausrad!
	Zitat