Name einer Klasse "direkt" erhalten

[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; ?