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?