funktionsname als string ausgeben

[day]

hallo
Gibt es eine möglichkeit den funktionsname in der ich mich befinde als string rauszukriegen?

[Kroko1999]

Delphi-Quellcode:

function MeineFunktion: TMeinType;
begin
  ShowMessage ('MeineFunktion');
  Result := TMeinType1;
end;

[alcaeus]

Moin,

sowas wie das __FUNC__ Makro aus PHP gibt es in Delphi AFAIR nicht.
Du musst also wirklich den Funktionsnamen eintippen.

Greetz
alcaeus