Discussion :

[fred64]

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 :

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

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

[Bloon]

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 :

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

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 :

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

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 :

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

1
2
3
4
5
  TMyClass = class
  public
    callBack : TCallBack;
    procedure doo;
  end;

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

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
{ 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

[fred64]

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

je vais essayer ça au plus vite !

[TicTacToe]

un exemple

1. définir le type de la fonction:

Code :

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

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

2. Définir tes fonctions dans la classe

Code :

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

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 :

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

...

4. Utilisation:

Code :

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

1
2
3
4
procedure TMaForm.UneFonction()
begin
  MaFonctionAvecCallBack( Fonction1 );
end;

5. Implémentation de la fonction utilisant le callback

Code :

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

1
2
3
4
5
6
7
8
procedure TMaForm.MaFonctionnAvecCallBack( MaFonction: TObjetFunctionType);
var
  MonBool: Boolean;
begin
 ...
  MonBool := MaFonction( 'hop' );
 ...
end;

Edit: trop tard ...

[fred64]

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

Merci TicTacToe

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