Name einer Klasse "direkt" erhalten

[Helmi]

Hallo,

gibt es eine Möglichkeit, und falls ja welche, um an den Namen einer Klasse zu gelangen?

z. B.: Ich habe eine Klasse

Delphi-Quellcode:

TMyClass = packed class (TObject)

. Ich würde nun gerne den Namen ermitteln.
Also in dem Falle "TMyClass".

Nun könnte ich es einfach machen und eine Varible definieren und dann mittels ClassName den Namen ermitteln. Also so:

Delphi-Quellcode:

var
  MyClass: TMyClass;

begin
  S := MyClass.ClassName;
end;

Nur gibts auch etwas um auf die Zwischenvariable verzichten zu können? Also irgendwas in der Art:

Delphi-Quellcode:

begin
  S := GetClassName(TMyClass);
end;

[himitsu]

TMyClass.ClassName?

Das ist ein Class Property eine Class Function. :zwinker:



Du hast diese Variable nicht initialisiert ... ich hoffe du freust dich über die Exception. :angle2: (bei einer lokalen Variable)

Zitat:

Delphi-Quellcode:

var
  MyClass: TMyClass;

begin
  S := MyClass.ClassName;
end;

Und ja, das Andere geht auch :stupid:

Delphi-Quellcode:

function GetClassName(C: TClass): string;
begin
  Result := C.ClassName;
end;

oder wie währe es mit

Delphi-Quellcode:

S := TRttiContext.Create.GetType(TMyClass).Name;

? :lol:

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1160816)

Du hast diese Variable nicht initialisiert ... ich hoffe du freust dich über die Exception. :angle2: (bei einer lokalen Variable)

Das war nur als Beispiel - ich habs so nie im Code gehabt. Bislang hab ich den Klassen-Namen manuell als String geschrieben. Das wollt ich aber nicht mehr.

Zitat:

Zitat von himitsu (Beitrag 1160816)

Und ja, das Andere geht auch :stupid:

Delphi-Quellcode:

function GetClassName(C: TClass): string;
begin
  Result := C.ClassName;
end;

Auf diese Lösung bin ich dann auch gekommen, nachdem ich deinen Post gelesen habe (bevor ich sah, dass du ein Edit geschrieben hast). Das geht auch.

Zitat:

Zitat von himitsu (Beitrag 1160816)

oder wie währe es mit

Delphi-Quellcode:

S := TRttiContext.Create.GetType(TMyClass).Name;

? :lol:

Neeeeeeeee :-) - Wie schaut denn das aus? :zwinker: - das ist viel zu übertrieben lang. Lieber ne kleine Function - trotzdem Danke für die zusätzliche Möglichkeit

[himitsu]

Hoffentlich ist dir die erste Zeile aufgefallen. :angle:

*nur zur Sicherheit nochmal nachfrag*


:oops: Ups, die alte RTTI vergessen.

Delphi-Quellcode:

uses TypInfo;

S := UTF8ToString(PTypeInfo(TypeInfo(TStrings)).Name);  // vor D2009 könnte man das UTF8ToString auch weglassen

Ich hab nie verstanden, warum das TypeInfo nicht gleich PTypeInfo zurückgibt, sondern nur 'nen blöden Pointer.. :gruebel:

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1160819)

Hoffentlich ist dir die erste Zeile aufgefallen. :oops:

Man möge mir bitte den Sinne des ersten Zeile verdeutlichen!

Ich weiss grad nicht was du meinst

[himitsu]

Delphi-Quellcode:

S := KlassenVariable.ClassName;

S := TKlasse.ClassName;

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1160821)

Delphi-Quellcode:

S := KlassenVariable.ClassName;

S := TKlasse.ClassName;

jo - Danke! Es fiehlet mir ins Auge ;-)