Discussion :

[lil_jam63]

Salut, je cherche un moyen d'appeler une procedure dont le nom est contenu dans une cellule de strinGrid, exemple:


si maVariable=cellule(1,1) alors cellule(1,5)

Je sais pas si je suis assez clair mais en gros si ma variable est égal au texte de la cellule (1,1) alors j'apelle la procedure dont le nom se trouve dans la cellule(1,5).

Alors est ce que c'est possible de la faire, si oui, comment?
Merci.

[Nono40]

C'est possible sous trois conditions :
- Les procédures/fonctions doivent être des méthodes d'objet.
- Elles doivent être dans la section publiée.
- Elle doivent toutes avoir le même format d'appel.

Alors il est possible de faire ce que tu veux à l'aide de la fonction MethodAddress :

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
 
  TForm1 = class(TForm)
    ...
  public
    { Déclarations publiques }
    ...
    // le mot clef Published doit être ajouté manuellement
  Published
    Function Fonction1(x,y:Integer):Integer;
    Function Fonction2(x,y:Integer):Integer;
  end;
 
...
 
function TForm1.Fonction1(x, y: Integer): Integer;
begin
  Result:=x+y;
end;
 
function TForm1.Fonction2(x, y: Integer): Integer;
begin
  Result:=x-y;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
Var Proc:Function(x,y:Integer):Integer Of Object;
begin
  @Proc:=MethodAddress(Edit1.Text);
  If @Proc<>Nil Then
    ShowMessage(IntToStr(Proc(2,4)));
  Else
    ShowMessage('Méthode non trouvée !');
end;

[lil_jam63]

Merci nono pour ton expliquation et ton bout de code, par contre dans mon cas je travaille qu'avec des procedures, donc j'ai légerement modifié ton code pour mon utilisation et apparement, je ne peux pas l'adapter pour une procedure, j'ai le message d'erreur suivant:

Instruction attendue mais expression de type 'pointer' trouvée

Voilà le bout de code que j'ai:

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
 
  Published
    { Déclarations publiées }
    procedure essai;
    procedure essai2;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.essai;
begin
  showmessage('essai');
end;
 
procedure TForm1.essai2;
begin
  showmessage('essai2');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  Proc:procedure;
begin
  @Proc:=MethodAddress(Edit1.Text);
  If @Proc<>Nil Then
    @proc
  Else
    ShowMessage('Procedure non trouvée !');
end;

Maintenant je reformule ma question, existe t'il une fonction pour appeler une procedure par son adresse?

[lil_jam63]

Apres quelques recherches je suis tombé sur enumProc mais le soucis est que ça se repete indefiniment, je m'explique, quand j'apel ma procedure ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
Var
  Proc : procedure;
begin
  @Proc:=MethodAddress(Edit1.Text);
  If @Proc<>Nil Then
    enumWindows(@proc,0)
  Else
    ShowMessage('Procedure non trouvée !');
end;

avec edit1.text = essai2, j'ai bien ma fenetre qui s'affiche avec essai2 mais quand je clique sur ok, elle réapparait, et cela indéfiniment, y'a t'il une autre manière de le faire?

Biensur je pourrais bricoler tous ça en transformant mes procedures en fonctions mais je préfererais faire un truc "propre".

[Nono40]

Tu as fais un petit oubli en adaptant le code : le "Of Object" est important :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject); 
Var 
  Proc:procedure Of Object; 
begin 
  @Proc:=MethodAddress(Edit1.Text); 
  If @Proc<>Nil Then 
    @proc 
  Else 
    ShowMessage('Procedure non trouvée !'); 
end;

[lil_jam63]

Merci nono, je commençais a partir dans l'assembleur par contre petite rectification il faut enlever le @ quand on appel la procedure, ce qui donne

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Var 
  Proc : procedure Of Object;
begin
  @Proc:=MethodAddress(Edit1.Text);
  If @Proc<>Nil Then
    Proc
  Else
    ShowMessage('Procedure non trouvée !');
end;

De plus, quand tu dis que les fonctions et procedures doivent etre published, cela veux dire que je ne peux pas par exemple rassembler ces procedures et fonctions dans une unit séparée, a moins de créer une class descendant de TObject juste pour ça et auquel cas je l'appelerais ainsi

Code :

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

1
2
 
@Proc := maClasse.MethodAddress(Edit1.Text);

peut tu confirmer ou infirmer stp?

[Nono40]

De plus, quand tu dis que les fonctions et procedures doivent etre published, cela veux dire que je ne peux pas par exemple rassembler ces procedures et fonctions dans une unit séparée, a moins de créer une class descendant de TObject juste pour ça et auquel cas je l'appelerais ainsi

Code :

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

1
2
 
@Proc := maClasse.MethodAddress(Edit1.Text);

peut tu confirmer ou infirmer stp?

Tu as tout compris, c'est comme cela qu'il faut faire si tu veux mettre tes procédures dans une unité séparée. Juste un détail, il faudra quand même créer une instance de la classe ( maClasse de type TmaClasse dans ton cas ) pour pouvoir appeler maClasse.MethodAddress();

[lil_jam63]

C'étais sous-entendu biensur , je te remercie beaucoup.

[Pierre Castelain]

Ce principe peut être utilisé également avec des procédures, il suffit d'utiliser GetProcAddress (comme pour utiliser une dll) sans oublier d'exporter la liste des procédures disponibles. En fait, on fait comme si le programme était une dll.

[lil_jam63]

Merci Pierre, c'est effectivement une manière de procéder et que j'utilise deja dans mon application avec une dll mais j'avais pas du tout pensé que je pouvais l'utiliser au sein même de mon application, merci beaucoup pour votre aide.