Name der aufrufenden procedure/function ermitteln

[StefanL34]

Hallo Skiron,

vielen Dank für Deine Antwort.

Jetzt habe ich vergessen oben zu posten,
dass ich gerne eine Beispielcode dazu hätte.

Klar ich kann einen Zeichenkette Parameter übergeben.
Aber dann muss ICH mir bei jedem Aufruf die Arbeit machen
die Zeichenkette einzugeben.

Das ist jedoch genau das was ich vermeiden will.

Ich hätte gerne eine Möglichkeit das der Aufruf IMMER gleich aussieht.
OHNE extra-Parameter

Delphi bietet so viele Möglichkeiten den Code zu beeinflussen
bzw. Details abzufragen. Da gibt es doch bestimmt auch was
mit dem man die aufrufende procedure aus dem schon vorhandenem
ermitteln kann.


In C habe ich dazu etwas von "Stack-Tracing" gelesen.

Vielleicht muss man ja nur "WISSEN" wie man
Sender.ClassInfo
Sender.MethodName oder was weiß ich
tricky miteinander in einer function GetCallingName verknüpft um zu erreichen dass

Delphi-Quellcode:

procedure ABC;

begin
  blabla;
  XYZ;
end;



procedure XYZ;

var
  CalledFrom : string;

begin
  CalledFrom := GetCallingName;
end;

das GetCallingName "ABC" zurückgibt


vielen Dank schon im Voraus für

Code-Vorschläge

viele herzliche Grüße

Stefan