Discussion :

[PapaPitou]

Bonjour à tous ;

je cherche comment d'obtenir l'adresse d'une méthode dans sa propre implémentation. C'est à dire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function MyObject.MyMethod:integer
var P: Pointer;
begin
  // pseudo-code
  P := addr(this_method);  
end;

C'est le "addr(this_mehod)" que je voudrais remplacer par qqch

Merci et comme d'hab à charge de revanche

____________________________
[Balise code rajouté par Lil_jam63]

[lil_jam63]

Bonjour et bien venue sur les forums de Developpez.com.
Pense à utiliser les balises à ta disposition qui rendent ton post plus compréhensible et agréable à lire merci.

Pour ton soucis, je pense que c'est celà que tu cherches à faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  Proc : procedure Of Object;
  //Proc : Function(x,y:Integer):Integer Of Object; // si c'est une fonction, ce qui implique que toutes tes fonctions possèdent le même prototype, ex: additionne(x, y: integer);  multiplie(x, y: integer); etc...
begin
  @Proc := MethodAddress('leNomDeTaMethode');
  If @Proc<>Nil Then
    Proc // on execute cette methode ou tu fais ce que tu veux avec
  Else
    ShowMessage('Procedure ou fonction inexistante !');
end;

sinon soit plus explicite, "remplacer par qqch" est assez vague comme explication.

[PapaPitou]

Merci à toi de ta rapide réponse et de tes conseils de rédaction que je suivrai.

En fait, je connaissais ton tip. Mais je vais essayer de mieux décrire mon problème .

Je dispose d'une fonction qui centralise toutes les gestions d'exceptions. Toutes les méthodes de tous les objets de mon programme appellent ce gestionnaire d'exceptions centralisé, dans la partie "except" d'un "try..except..end". Pour que mon gestionnaire d'exceptions soit parlant, je lui passe en paramètre en dur (en toutes lettres via un string) le nom de la méthode appelante, et ce à chaque fois.

Comme c'est fastidieux, ennuyeux à maintenir et à dire vrai pas très élégant, je cherchais un moyen de passer en paramètre non pas la chaîne du nom de la méthode appelante, mais une routine qui détermine ce nom automatiquement, ce qui me permettrait de systématiser, donc d'industrialiser, l'appel au gestionnaire d'exceptions.

La voie que je tente est celle de la méthode MethodName de TObject. Or celle-ci nécessite un pointeur sur la méthode concernée pour retourner son nom. C'est précisément ce pointeur que je cherchais à obtenir avec ma première question certes un peu "elliptique"...

PS : Il y a du code qui fait cela dans la JCL (Jedi Code Lib), mais ce code est touffu et volumineux, alors avant d'en extraire juste ce dont j'ai besoin, je postais pour savoir si qqun avait déjà résolu ce pb qui doit finalement être assez courant.

Merci du temps que tu (vous) prendras )à me répondre.

Bonne journée.

[tourlourou]

MethodName et MethodAddress ne fonctionnent je crois que pour les méthodes publiées, de toute façon

[Nono40]

MethodName et MethodAddress ne fonctionnent je crois que pour les méthodes publiées, de toute façon

Exact.
Dans le cas des évènements, par défaut ils ne sont pas publiés mais seulement publics. Il faut créer la section Published manuellement et y déplacer la déclaration des évènements.