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



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

Zitat:

Delphi-Quellcode:

var
  MyClass: TMyClass;

begin
  S := MyClass.ClassName;
end;

Und ja, das Andere geht auch

Delphi-Quellcode:

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

oder wie währe es mit S := TRttiContext.Create.GetType(TMyClass).Name; ?

[Helmi]

Zitat von himitsu:

Du hast diese Variable nicht initialisiert ... ich hoffe du freust dich über die Exception. (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 von himitsu:

Und ja, das Andere geht auch

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 von himitsu:

oder wie währe es mit S := TRttiContext.Create.GetType(TMyClass).Name; ?

Neeeeeeeee - Wie schaut denn das aus? - 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.

*nur zur Sicherheit nochmal nachfrag*


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

[Helmi]

Zitat von himitsu:

Hoffentlich ist dir die erste Zeile aufgefallen.

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 von himitsu:

Delphi-Quellcode:

S := KlassenVariable.ClassName;

S := TKlasse.ClassName;

jo - Danke! Es fiehlet mir ins Auge