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