[POO] Passer en paramètre à un objet une fonction de callback

Bonjor à tous,

voila, depuis un classe j'instancie un objet que je fais travailler sur des données, j'aimerai pouvoir passer en paramètre à cet objet le nom de la méthode qui doit être appelée en fin de traitement, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); var callback := string; begin callback := 'TForm1.MontrerResultat'; MonObjet := TMonObjet.create(); MonObjet.Traitement(callback); end;

---

Ainsi, quand l'objet MonObjet a fini d'executer sa méthode Traitement, il appelle la méthode donnée en paramètre callback,

je ne vois pas du tout comment procéder,

merci à vous de m'éclairer sur le sujet,


Fred

Il y a plusieurs façons de faire, la plus propre est la suivante :

1. Créer un type qui représente la fonction de callback :

Code:

---

1 2	type TCallBack = procedure(s : string) of object; // of object : car on veut que notre fonction callback soit une méthode

---

2. Dans la fenêtre, déclarer une méthode qui fera office de fonction callback :

Code:

---

1 2 3 4 5 6

TForm1 = class(TForm) ... private procedure myCallback(s : string); ... end;

---

3. Dans la classe, déclarer une propriété qui représentera la fonction callback à appeler :

Code:

---

1 2 3 4 5

TMyClass = class public callBack : TCallBack; procedure doo; end;

---

4. Il n'y a plus qu'à utiliser tout ça :

Code:

---

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

{ TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin with TMyClass.Create do try callBack := myCallBack; doo; finally Free; end; end; procedure TForm1.myCallback(s: string); begin showMessage('TForm1.myCallback' + sLineBreak + s); end; { TMyClass } procedure TMyClass.doo; begin showMessage('dans doo...'); // Appel de la fonction callback (si elle est définie) : if assigned(callBack) then callBack('je suis TMyClass');end;

---

Bloon

Merci beaucoup pour ta réponse très précise :ccool:

je vais essayer ça au plus vite !

un exemple

1. définir le type de la fonction:

Code:

---

TObjetFunctionType = function( const SValeur : String ) : Boolean of object;

---

2. Définir tes fonctions dans la classe

Code:

---

1 2 3 4 5 6

TMaForm = class( Form ) ... Function MaFonction1( const SValeur : String ) : Boolean; Function MaFonction2( const SValeur : String ) : Boolean; Procedure MaFonctionAvecCallBack( MaFonction: TObjetFunctionType); end;

---

3. Implémenter MaFonction1 et MaFonction2

Code:

---

...

---

4. Utilisation:

Code:

---

1 2 3 4

procedure TMaForm.UneFonction() begin MaFonctionAvecCallBack( Fonction1 ); end;

---

5. Implémentation de la fonction utilisant le callback

Code:

---

1 2 3 4 5 6 7 8

procedure TMaForm.MaFonctionnAvecCallBack( MaFonction: TObjetFunctionType); var MonBool: Boolean; begin ... MonBool := MaFonction( 'hop' ); ... end;

---

Edit: trop tard ... ;)

Merci bloon, j'ai adapté à mon projet et cela marche nickel !

Merci TicTacToe ;)

Longue vie à ce forum et à ses contributeurs de qualité

:king: