Discussion :

[gudul]

Bonjour.

Comment faire pour passer une procédure en parametre d'une méthode et l'executer dans cette méthode ?

Du genre ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure MaProd;
...
procedure TraiterProc(AProcEnParam: ...);
begin
  // Executer AProcEnParam
  ...
  ShowMessage('Procedure terminée');
end;
 
procedure TFormMain.actActionExecute(Sender: TObject);
begin
  TraiterProc(MaProd);
end;

[Tardiff Jean-François]

Bonjour,

Je pense que vous ne pouvez passer en paramètre que des procédure dons le type à été prédéfinie.

Par exemple TNotifyEvent à été défini par Borland.

Code :

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

1
2
 
TNotifyEvent = procedure(Sender: TObject) of object;

Par exemple:

Soir la procedure
MyProc(Sender: TObject);

et La procedure
Exemple(Proc: TNotifyEvent);

Vous devriez pouvoir fair
Exemple(MyProc);

[neilbgr]

Il faut déclarer le type de ta procédure:

Code :

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

TMaProc = procedure;

puis déclarer l'argument dans la méthode d'appel :

Code :

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

1
2
3
4
5
procedure TraiterProc(AProcEnParam: TMaProc);
begin
   // Appel :
  AProcEnParam;
end;

ATTENTION
Si ta procédure est une procédure déclarée dans une classe (autrement dit une méthode), la déclaration se fait comme ceci:

Code :

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

TMaProc = procedure of object;

Aussi, si il y a des arguments, il faut les déclarer (par ex

Code :

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

1
2
3
TMaMethode = procedure (Sender: TObject) of object;
TMaFonction = function (A, B: Integer): Boolean;
TUneAutreMethode = function (A, B: Integer): Boolean of object;

[neilbgr]

J'ajoute que l'aide Delphi explique tout sur ce sujet.
Pour l'obtenir, j'ai fait sur of object puis sélectionner la rubrique "Les types procédure"

[gudul]

Merci.
C'est pas exactement ce que je voulais faire mais je m'aperçois que ce n'est pas faisable. (Passer des methodes avec un nombre et/ ou des type differents de parametres).

Ca m'a fait réviser quand même