Discussion :

[artmicro]

Bonjour,

Ayant créé un tableau à 2 dimensions contenant
des pointeurs de méthodes, je souhaite parcourir ce
tableau pour afficher le nom des méthodes présentes
dans chaque cellule.

Le but étant de générer un document avec
la liste des actions du tableau pour vérification...

Je pense qu'il existe une API exploitant les RTTI pour obtenir cela,
mais laquelle ?

merci

[ShaiLeTroll]

Si c'est des Méthodes dans des TObject, MethodAddress et MethodName devrait te plaire !
Cela s'applique sur la classe contenant la méthodes, je te conseille de couplé cela avec un FindClass et RegisterClass !

[artmicro]

Si c'est des Méthodes dans des TObject, MethodAddress et MethodName devrait te plaire !
Cela s'applique sur la classe contenant la méthodes, je te conseille de couplé cela avec un FindClass et RegisterClass !

ce que je ne comprend pas, c'est que j'ai un pb de type :

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
 
type TACTIONS = array[1..4] of array[1..4] of function(): boolean of object;
 
 
type
    TSample = class(TObject)
    private
        Actions : TACTIONS;
    public
 
        procedure Genere_map();
 
        function Creer_element() : boolean ;
        function Modifier_element() : boolean ;
        function Supprimer_element() : boolean ;
 
end;
 
...
procedure TSample.Genere_map();
begin
    Actions[1][1] := Creer_element;
    ShowMessage( 'Action : ' +  MethodName( Creer_element) );
end;

cela ne compile pas : Types incompatibles : 'Boolean' et 'Pointer' sur
l'appel de MethodeName.

Pourquoi 'Creer_element' est typé en boolean ?

[ShaiLeTroll]

Il me semble que ces codes sont similaires

Code :

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

    Actions[1][1] := Creer_element;

Code :

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

    Actions[1][1] := @Creer_element;

Le Compilateur est assez malin pour se rendre compte que tu souhaite affecter une "function(): boolean of object" et non executer la fonction, ce qui t'a induit en erreur pour

MethodName utilisant un simple Pointer, le compilateur ne rend pas @ implicite, il faut donc le faire soit-même !

Code :

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

    ShowMessage( 'Action : ' +  MethodName( @Creer_element) );

[artmicro]

Code :

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

    ShowMessage( 'Action : ' +  MethodName( @Creer_element) );

Ca compile, mais Methodename me retourne une chaine vide
J'ai pourtant ( je pense ) activé le RTTI avec :
{$M+} {$TYPEINFO ON}

Une piste ?

[ShaiLeTroll]

Code :

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

1
2
3
4
5
6
{$M+} 
type
  TSample = class(TObject)
    ... 
  end;
{$M-}

Utilise un TPersistent sinon !

{$M+} c'est pareil que {$TYPEINFO ON}
{$M-} c'est pareil que {$TYPEINFO OFF}
C'est soit la syntaxe courte soit verbeuse, pas besoin de mettre les deux !

Dans le sujet Créer un jeu d'aventure textuel , j'avais proposé un petit moteur de jeu avec MethodAddress, tu devrais lire ce sujet !

[sjrd]

Il faut surtout que tes méthodes soient dans published et non dans public.

[ShaiLeTroll]

Tu as l'oeil SJRD !
En même temps, penser à la directive {M+} mais oublier published , c'est Ballot !

[artmicro]

Il faut surtout que tes méthodes soient dans published et non dans public.

Merci !
Tout fonctionne comme prévu...