[Delphi] aanroepende functie naam

[Zarc.oh]

Ik roep Delphi 6 een functie meerdere malen aan d.m.v. van meerdere BlaatComponentChange procedures, bijvoorbeeld:

code:

procedure TFactuurbeheerForm.Edit1Change(Sender: TObject);
begin
   ZoektermChange(self);
end;

Hoe kom in binnen ZoektermChange() aan de naam van de functie die ZoektermChange() heeft aangeroepen?
Ik heb geprobeerd te zoeken in de search en op google, maar weet niet echt waarop ik moet zoeken

[ Voor 3% gewijzigd door Zarc.oh op 24-04-2003 22:51 ]

[Elissen]

De parameter Sender is het control die de event genereerd, in dit geval Edit1. Self is in deze context je form (FactuurbeheerForm). Geef Sender mee als parameter ipv Self en je kan mbv Sender.Name de naam achterhalen. Als je 'm typecast kan je alles van de edit gebruiken:

Delphi:

(Sender as TEdit).text := 'blaat'

[Tomatoman]

De naam van de aanroepende functie kun je niet achterhalen. Maar wat is eigenlijk je bedoeling? Moet de naam van die functie in een venster worden weergegeven of zo?

[Delphi32]

Het kán natuurlijk wel degelijk, die functienaam achterhalen. De callstack kan het immers ook Met de OTA zou je een eind moeten kunnen komen. Bij mij op mn werk hebben we een tool die die info van de callstack achterhaalt, en ik kan je vertellen dat het redelijk complex is, dus de vraag van tomatoman (waarom wil je dit eigenlijk) is zeer terecht: ben je bereid om tig aantal uren te besteden aan het fixen van dit probleem?

[OZ-Gump]

<vervolg Delphi32> ... en als je dat een beetje overdreven vindt, en je wil graag een makkelijke oplossing, waarom pas je dan niet de procedure aan zodat je een (extra) parameter kunt meegeven...... De naam van de aanroeper!

[ Voor 5% gewijzigd door OZ-Gump op 25-04-2003 08:40 . Reden: add ]

[martijn_brinkers]

Het kan wel maar dan moet je wel een map file bij voegen, in debug mode draaien ie. geen optimalisaties en stack frames aan zetten. Maw voor debuggen is het leuk maar je moet het niet gebruiken om de logica van je programma aan op te hangen.

Bij JCL library zitten een aantal handige routines hiervoor: http://sourceforge.net/projects/jcl/

[curry684]

OZ-Gump schreef op 25 april 2003 @ 08:40:
<vervolg Delphi32> ... en als je dat een beetje overdreven vindt, en je wil graag een makkelijke oplossing, waarom pas je dan niet de procedure aan zodat je een (extra) parameter kunt meegeven...... De naam van de aanroeper!

Omdat Edit1Change een predefined event is en je dus de signature niet mag/kan wijzigen (duh).

[OZ-Gump]

Curry684 Curry684 Curry684 toch...
Ik weet dat er een hoop mensen zijn die die hier domme opmerkingen maken, maar dit kan toch gewoon! Hij heeft zelf een functie ZoektermChange() gemaakt.
(zie ook openingspost)

Hoe moeilijk is het dan om er een parametertje aan te hangen zodat hij

code:

ZoektermChange(self, 'edit1');

kan doen? Hij geeft dan dus zelf via een string aan wie de functie aanroept. DUH!

Tenzij hij die ZoektermChange() niet zelf heeft gemaakt natuurlijk, maar omdat in zijn code Edit1Change staat neem ik aan dat die zoekterm een zelf gedefinieerde procedure is. Zo niet: dan heb jij gelijk hoor Cur...

_{PS Of ik moet het heeeeeeeeel fout begrijpen natuurlijk.}

[curry684]

OZ-Gump schreef op 25 April 2003 @ 13:06:
_{PS Of ik moet het heeeeeeeeel fout begrijpen natuurlijk.}

Ieps nee fout gelezen, ik moet echt niet proberen na te denken tijdens het werk

[Alarmnummer]

Delphi32 schreef op 25 April 2003 @ 00:08:
Het kán natuurlijk wel degelijk, die functienaam achterhalen. De callstack kan het immers ook Met de OTA zou je een eind moeten kunnen komen. Bij mij op mn werk hebben we een tool die die info van de callstack achterhaalt, en ik kan je vertellen dat het redelijk complex is, dus de vraag van tomatoman (waarom wil je dit eigenlijk) is zeer terecht: ben je bereid om tig aantal uren te besteden aan het fixen van dit probleem?

Ik doe het bij java als volgt:

code:

try{
   throw new Exception();
catch(Exception e){
    e.printStackTrace();
}

Hiermee kan ik achterhalen we die methode heeft aangeroepen

In delphi is zoiets ook wel mogelijk. Alleen jammer dat ze bij Borland nog niet genoeg prog ervaring hebben om automatisch dat soort zaken mee te leveren. MadException is een uitstekende aanvulling op de standaard (minderwaardige) debugtroep van Delphi.

[ Voor 16% gewijzigd door Alarmnummer op 25-04-2003 13:35 ]

[LordLarry]

Borland bevat wel een stacktrace hoor, helaas is deze alleen te vinden in de debugger en dus niet ingebouwd in je programma zelf. Als je bij de klant ook zulke informatie wilt hebben zal je idd een 3rd party ding moeten gebruiken.

[Verwijderd]

Kun je niet gewoon RTTI gebruiken etc.

[LordLarry]

Nee, die is daar niet voor