Einzelnen Beitrag anzeigen

StefanL34

Registriert seit: 22. Apr 2003
4 Beiträge
 
#1

Name der aufrufenden procedure/function ermitteln

  Alt 17. Jan 2004, 16:22
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
  Mit Zitat antworten Zitat