Name der aufrufenden procedure/function ermitteln

[StefanL34]

Hallo Delphi-Communitiy,

wie kann man den Namen einer aufrufenden procedure ermitteln?


Beispielcode:

Delphi-Quellcode:

procedure ABC;

begin
  XYZ;

end;

procedure UVW;

begin

  XYZ;
end;

procedure XYZ;

begin
  ...
end;

dabei soll INNERHALB der procedure XYZ ermittelt werden ob sie von "ABC" oder "UVW"
aufgerufen wurde.

Bin Dankbar für jeden Hinweis

wenn es nicht in dieser allgemeinen Form geht, dann vielleicht wenigstens
wenn die procedure zu einer Klasse gehören
oder kann man durch Übergabe von Sender: TObject
oder VonKomp : TComponent

also mit
procedure XYZ(VonKomp : TObject);

oder so ähnlich sowas realisieren?

Bin dankbar für jeden Hinweis

viele Grüße

Stefan

[Skiron]

jup, ich würds mit parameter machen...
als string, als TObject, oder als pointer auf die Prozedur...

[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

[Skiron]

wenn dus ohne machen möchtest, könntest du echt den Stack auslesen
das könntest du mit assembler machen und mit push und pop irgendwie arbeiten
da kenn ich mich aber nicht so gut aus, sry...

[Robert Marquardt]

In einem normalen Delphi-Programm sind die noetigen Informationen nicht enthalten.
Es wird zumindest das MAP-File mit den Namen der Methoden und Funktionen benoetigt.

In diesem Fall wuerde ich dir aber zu einem Parameter raten. Also ABC gibt seinen Namen einfach an XYZ weiter.

Die Alternative waere z. B. die Jedi Code Library http://sourceforge.net/projects/jcl und die
darin enthaltene Debug Extension. Dort wird das MAP File beim Kompilieren erzeugt, komprimiert und an das EXE angehaengt.

[marvin.maybe]

Zitat:

dabei soll INNERHALB der procedure XYZ ermittelt werden ob sie von "ABC" oder "UVW"
aufgerufen wurde.

Ein schöner Weg wäre aus meiner Sicht, wenn Du in der aufgerufenen Prozedur XYZ einen Parameter definieren würdest - z.B.

Code:

iCallerGroupID: string

der von den aufrufenden Prozeduren gefüllt wird.

Prozedurenamen sollte vom Compiler nicht mit in den Code übernommen werden. Bestenfalls könnte man ihn aus Debug-Informationen ermitteln (die bei der Auslieferung dann nicht mehr mit eingebunden sind). Allerdings würde ich das nicht machen.

Gruß,
Marvin.