|
Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Aufrufende Prozedur erkennen
20. Sep 2005, 12:25
Du könntest einen Parameter von Typ String übergeben, wo der Name der aufrufende Procedur steht.
Delphi-Quellcode:
procedure Caller();
begin
called('Caller');
end;
procedure Called(const param:string);
begin
//
end;
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|