Discussion :

[FlorentA]

Bonjour.

J'essaye d'utiliser les méthodes MethodAddress et MethodName mais je n'obtiens rien, la première me retournant systématiquement une valeur nil et la seconde une chaîne vide. Et je ne trouve pour ainsi dire aucune information sur ces méthodes. La seule référence, trouvée sur ce site, m'a permis de corriger la façon de récupérer l'adresse de la méthode et la transférer à MéthodName, mais rien.

J'ai essayé depuis TObject, pour me familiariser avec ses méthodes, et comme ça ne marchait pas, avec d'autres classes, TStringList puis une classe faite pour test : mêmes résultats : nil retourné par MethodeAddress et chaîne vide pour l'autre. D'autres méthodes semblent me jouer le même tour.

Un bug d'une vieille version ?
Version : 1.6-dfsg-1 (2016)
FPC : 3.0.0

Le bout de code à intégrer à une application (la TStringList est renvoyée pour afficher dans un TMemo).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
type
  TClasseA = class(Tobject)
    constructor Create;
    destructor Destroy;override;
  private
    Param1 : Single;
    Param2 : Integer;
  public
    function test(ParamArray : array of single): boolean;
  end;
 
var
  obj:TObject;
 
 
constructor TClasseA.Create;
  begin
    Param1 := 0;
    Param2 := 0;
  end;
 
destructor TClasseA.Destroy;
  begin
 
    inherited Destroy;
  end;
 
function TClasseA.test(ParamArray: array of single): boolean;
begin
  Param1:=1;
end;
 
function test_TObject:Tstrings;
  var
    chn:TStringList;
    p:pointer;
    s:string;
    met:TMethod;
    test:TClasseA;
 
  begin
    obj:=TObject.Create();                          
    chn:=TStringlist.Create(); 
    chn.Add('affichage l''adresse d''une méthode de l''objet par MethodAddress()');
    s:='test';
    test:=TClasseA.Create;
    p:=test.MethodAddress(s);
    if (p=nil) then
      chn.Add('    La méthode "'+s+'" n''existe pas')
    else
      begin
        s:=format('    %s situé à %p',[s,p]);
        chn.Add(s);
      end;
    chn.Add('affichage du nom d''une méthode de l''objet dont l''adresse est connue par MethodName()');
    met:=TMethod(@test.test);
    if (met.Code=nil) then
      chn.Add('    La méthode "test" n''existe pas.')
    else
      chn.Add('    '+obj.MethodName(met.Code));
 
    obj.Free;
 
    result:=chn;
  end;

Merci.

[Roland Chastain]

Bonjour ! D'après une recherche rapide que je viens de faire sur le forum anglais avec le mot-clé MethodAddress, il semblerait que ça ne fonctionne que pour les méthodes published.

Les liens qui m'ont paru intéressants (y compris des solutions alternatives) :

• https://forum.lazarus.freepascal.org....html#msg48900
• https://forum.lazarus.freepascal.org...html#msg365923
• https://www.lazarusforum.de/viewtopi...127066#p127066

[FlorentA]

Ça marche tout de suite mieux…
Merci.

J'étais tombé sur les RTTI mais pour les méthodes d'identité de classe (et une technique pour obtenir le nom d'un type énuméré, bien pratique) sur cette page. Mais rien sur les deux méthodes ici. Et j'ignorais le sens de cette directive $M.
Idem sur votre second lien sur lequel j'étais tombé : c'est discret le {$M+} et published… faut savoir

Une fois compris le sens des RTTI et de published, cela prend tout son sens. Pourtant, les fonctions de classe ont bien fonctionné sans cette directive !?

Reste dans les classes standards de savoir quelles méthodes sont published. Or dans la doc, ce n'est pas explicite. Elles ne le sont a priori pas, vu l'objectif de ces classes et des méthodes published.

Du coup, comme j'avais le même souci avec FieldAddress, j'ai fouillé un peu plus et me suis rendu compte que la propriété doit aussi être published… et par d'un type simple : seuls les classes et interfaces fonctionnent avec cette méthode.

Voir
https://fpc-pascal.freepascal.narkiv...f-fieldaddress

C'est dommage que ce ne soit pas précisé dans la doc officielle, ça ne prendrait que deux lignes et épargnerait bien des soucis et du temps perdu. Il y a moyen de demander une mise à jour ?

[Roland Chastain]

Il y a moyen de demander une mise à jour ?

Pour la documentation officielle, je ne sais pas exactement comment ça se passe, mais nous pourrions peut-être dans un premier temps ajouter une entrée dans notre FAQ Lazarus.

P.-S. Autre exemple intéressant que je viens de trouver :

• https://forum.lazarus.freepascal.org...html#msg429785