Discussion :

[Aooka]

Bonjour,

Je cherche activement un tuto / cours sur les delegate ou délégués en Delphi. En gros sa permet de passé des Variables d'une forme à une autre. Mais j'ai du mal dans la technique.
Si vous connaissez un bon lien, je suis preneur.


Bonne journée,
bien cordialement,

[Thierry Laborde]

Bonjour,

Quelques liens :

http://docwiki.embarcadero.com/RADSt...9l%C3%A9gation
http://docwiki.embarcadero.com/RADSt...9l%C3%A9gation
http://docwiki.embarcadero.com/RADSt...gr%C3%A9gation

[Aooka]

En réalité j'avais mal construit ma demande. Je cherchais plus quelques choses sur les variables qui peuvent contenir des procedures ou encore des fonctions du style :

Code :

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

TMaDelegate = Procedure(I : Integer , S : String) Of Object;

Mais tes liens me seront utiles par la suite tout de même !

Merci
Bonne journée,

[Paul TOTH]

il en existe trois types:

Code :

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

1
2
3
4
5
 
type
  TProcedure  = procedure (param: type);
 
  TMethod = procedure(param: type) of object;

la première est une pointeur sur une procédure (ou une fonction), la seconde un pointeur sur une méthode objet. A la différence de la première un second pointeur lui est associé, celui de l'instance objet concerné. C'est pour cela que "Button1.OnClick := Form1.Button1Click" suffit pour associer à la fois Form1 et sa méthode Button1Click à l'objet Button1.

et le troisième type ? ce sont les "reference to procedure", qu'on appelle aussi fonction anonyme. Celle là est particulière, puisqu'elle va permettre de capturer des variables locales

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
 
type
  TExemple = reference to procedure(Obj: TObject);
 
var
  ex: TExemple;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ex := procedure(Obj: TObject)
        begin
          ShowMessage(TButton(Obj).Caption + ' et ' + TButton(Sender).Caption);
        end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ex(Sender);
end;

dans cet exemple, il faut cliquer sur Button1 puis Button2 et deviner ce qu'il se passe

[Aooka]

Avant de commencer,
Merci de ta réponse




Bonne chance à ceux qui essayent et qui comme moi débutent dans le milieu, attention sa fait mal à la tête !

Bon, après trituration dans tout les sens je propose une réponse :

Button1.OnClick :
1. On initialise la delegate TExemple.
2. TButton(Obj).Caption ne vaut null car Obj n'as pas encore été définis ?
3. TButton(Sender).Caption affiche TButton1 car Sender existe lui pour le coup ?
Donc le Show Message = 'et TButton1'

Button2.OnClick :
1. On appelle la delegate ex.
2. Obj vaut le Sender du TButton2 vu qu'on l'a passé en paramètre dans Button2Click. Et le TButton(Sender) est le TButton1.
Le Showmessage affichera donc :
TButton1 et TButton2.


~ Inversement : En clickant sur le Button2 puis sur le Button1 ~
Button2.OnClick :
1. Access violation ou un truc du genre car on ne pourra pas accéder à l'initialisation de ex vu qu'il faut forcément clicquer sur Button1 pour lancer l'initialisation de ex.



Après auto-correction :
Il me semble que j'ai compris le fonctionnement général, cependant lorsque l'on clique sur Button1 il n'y a pas de ShowMessage, or, je ne comprends pas vu que le Sender de TButton(Sender).Caption existe belle et bien ici même :

Code :

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

procedure TForm1.Button1Click(Sender: TObject);

[Barbibulle]

Bonjour,

Dans Button1Click on ne fait qu'attribuer la "variable" "ex" avec la procédure

Code :

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

1
2
3
4
ex := procedure(Obj: TObject)
        begin
          ShowMessage(TButton(Obj).Caption + ' et ' + TButton(Sender).Caption);
        end;

Dans Button2Click utilise cette procédure...

Je n'ai pas testé mais je dirais que le résultat est plutôt "Button2 et Button1".

[Aooka]

Exact : Button2 et Button1 je me suis trompé en écrivant mais il y avait la bonne logique !
Et oui d'accord, capito !

Sujet résolu.


Edit: Un lien util : http://laurent-dardenne.developpez.c...resEtMethodes/

[Paul TOTH]

comme le précise Barbibulle, Button1 n'appelle pas la procédure, il déclare une procédure qui est affectée à ex.

quand Button2 appelle ex (si on n'a pas cliqué sur Button1, ex n'est pas défini, l'erreur est normale), on appelle la procédure avec Button2 en paramètre, mais là où c'est très fort, c'est qu'une référence au paramètre Sender de Button1Click a été conservée alors qu'on a quitté la procédure depuis longtemps. Donc la "reference to procedure" a capturé un paramètre et le conserve pour plus tard. Evidemment si Button1 devait être détruit, ex() planterait en y faisant référence.

voici un autre exemple qui montre la capture d'une variable locale

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
 
type
  TExemple = reference to function: string;
 
var
  ex: TExemple;
  s1: string = 'World'; // s1 initialisé à 'World'
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s2: string;
begin
  s2 := s1; // copie locale de s1
  ex := function: string
        begin
          Result := s1 + ' ' + s2; // s1 et s2
        end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  s1 := 'Hello';
  ShowMessage(ex);
  s1 := 'Bye';
  ShowMessage(ex);
end;

Notez aussi qu'on peut créer une fonction qui retourne une reference to procedure

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
 
function Demo(Value: string): TExemple;
begin
  Result := function: string
            begin
              Result := Value + s1;
            end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  ex := Demo('Test');
  s1 := '1';
  ShowMessage(ex);
  s1 := '2';
  ShowMessage(ex);
end;

dernier cas d'usage et non des moindres, on utilise la reference comme paramètre d'une fonction

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
 
type
  TCompare = reference to function(s1, s2: string): Boolean;
 
function IsEqual(s1, s2: string; Compare: TCompare): Boolean;
begin
  Result := Compare(s1, s2);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  if IsEqual(
    'a', 'b',
    function(s1, s2: string): Boolean
    begin
      Result := s1 = s2;
    end)
  then
    ShowMessage('a = b')
  else
    ShowMessage('a <> b');
end;

ce sera utilisé par exemple dans une fonction de trie dans laquelle on pourra indiquer directement le code de la fonction de comparaison sans avoir à déclarer une procédure externe.

et si on mélange un peu les exemples on obtiens quelque chose comme ç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
27
 
procedure TForm1.Button4Click(Sender: TObject);
var
  CaseSensitive: Boolean;
  Compare: TCompare;
begin
  Compare := function(s1, s2: string): Boolean
              begin
                if CaseSensitive then
                  Result := s1 = s2
                else
                  REsult := CompareText(s1, s2) = 0;
              end;
 
  CaseSensitive := False;
  if IsEqual('A', 'a', Compare) then
    ShowMessage('A = a')
  else
    ShowMessage('A <> a');
 
  CaseSensitive := True;
  if IsEqual('A', 'a', Compare) then
    ShowMessage('A = a')
  else
    ShowMessage('A <> a');
 
end;

et même :

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
 
function CompareString(CaseSensitive: Boolean): TCompare;
begin
  Result := function(s1, s2: string): Boolean
            begin
              if CaseSensitive then
                Result := s1 = s2
              else
                Result := CompareText(s1, s2) = 0;
            end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
  Compare: TCompare;
begin
  Compare := CompareString(False);
 
  if IsEqual('A', 'a', Compare) then
    ShowMessage('A = a')
  else
    ShowMessage('A <> a');
 
  Compare := CompareString(True);
 
  if IsEqual('A', 'a', Compare) then
    ShowMessage('A = a')
  else
    ShowMessage('A <> a');
 
end;

[foetus]

Closure (computer programming)

Fermeture (informatique)