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.