Funktionsname im COde nutzen

[t2000]

Gibt es eine Möglichkeit, in einer function/procedure den Namen der function/procedure im Code zu nutzen?

Folgendes Beispiel:

Delphi-Quellcode:

function MachWas( input: string): integer;
begin
  ShowMessage( 'Die Funktion heißt: '+ function_name);
end;

Anzeigen soll die Funktion dann: "Die Funktion heißt: MachWas"

Gibt es sowas?

Grund: Ich habe bei ganz ganz vielen Funktionen für den Fehlerfall Results, die die Location mitliefern. Z.B. 'Unitname.Class.Methodenname'

Klar. Ich kann das als String 'MachWas' reinschreiben. Ab für ein vielfaches Cut'n Copy wäre soetwas nicht schlecht.

VG
Thomas

[DieDolly]

Guck mal da.
How To Get the Name of the Current Procedure/Function in Delphi (As a String)

[Rollo62]

Mit Assert, würde ich aber nicht empfehlen (sondern abraten).
https://stackoverflow.com/questions/...tion-without-u

[Dennis07]

Kurz und knackig: Es geht allgemein betrachtet nicht. Du kannst über die Debug-Info beispielsweise so etwas machen, nur ist die in der Release-Konfiguration beispielsweise nicht verfügbar.

[himitsu]

Zitat von Dennis07:

nur ist die in der Release-Konfiguration beispielsweise nicht verfügbar.

doch

Niemand verbietet dir in dieser Config die MAP-Datei, die externen Debuginfos und/oder Delphi-Debuginfos zu aktivieren.

Es gibt auch einige MAP zu DBG Converter, womit dann auch die Debug-API von Windows zurecht kommt.
https://docs.microsoft.com/en-us/win...help-functions > Symbol Handler
Es wäre natürlich viel zu einfach, wenn Delphi auch die Internen Debug Infos erzeugen würde, so wie jeder andere normale Windows PE-erzeugende Compiler.

[dummzeuch]

Gibt es nicht seit einer der neuern Delphi-Versionen sowas wie TClass.ImplementationUnit und ähnliche Funktionen? Mein Gedächtnis lässt mich da gerade im Stich, aber irgendwas in der Richtung war da.