Discussion :

[Papy214]

Bonjour

Je suis souvent confronté à ce problème et je n'ai jamais vraiment trouvé de solution autre que déplacer des éléments de code.

Voici un exemple qui ne fonctionne pas :

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
 
procedure Test
 
  procedure Toto(truc: string);
  begin
    //
  end;
 
begin
  TThread.CreateAnonymousThread(
  procedure
  begin
    Toto('bidule');
  end
  ).Start;
 
end;

A la compilation :

[dcc32 Erreur] Unitcode.pas(2358): E2555 Impossible de capturer le symbole 'Toto'

Pour résoudre le problème, je peux déplacer ma procédure Toto au niveau supérieur de ma classe et ça fonctionnera.

Question 1 : Pourquoi ?

Question 2 : Quelles sont les règles de portée pour les variables, constantes, procédures, etc. dans ce genre de situation ?

[Andnotor]

Tu peux uniquement capturer des pointeurs sur des données, pas des procédures. Si tu transformes cette procédure en méthode c'est l'instance de la classe qui est capturée, pas la méthode.

Sur un Delphi récent (désolé pour toi) et dans la même logique de codage, ça peut se faire par une référence de ce type :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Test;
begin
  const Toto = procedure(truc: string)
               begin
                 //
               end;
 
  TThread.CreateAnonymousThread(
  procedure
  begin
    Toto('bidule');
  end
  ).Start;
end;

Ici Toto est bien une variable, de type procédural, et donc capturable (les constantes en ligne ne sont pas de vrai constantes, plutôt des variables read-only).

[Papy214]

Ok mais si on ne peut capturer que des pointeurs sur des données, pourquoi le code suivant fonctionne-t-il ?

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
 
procedure TForm3.Button1Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(
  procedure
  begin
    Toto('bidule');
  end
  ).Start;
end;
 
procedure TForm3.Toto(V: string);
begin
  ShowMessage(V);
end;

Est-ce parce la procédure fait cette fois partie de la classe TForm3 ??

[Andnotor]

Comme je l'ai dit, l'adresse de l'instance en cours est capturée ; c'est une variable. Et oui elle l'est parce que Toto est membre de sa classe.

[Papy214]

Ok , et donc si je voulais accéder à une variable, il faudrait que ce soit une variable de classe TForm3

Compris ! Merci

[Andnotor]

Ce n'est pas ce que j'ai dit. Une variable locale peut très bien être capturée. Ceci est correct :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm3.Button1Click(Sender: TObject);
var
  Text :string;
begin
  Text := 'Un texte';
 
  TThread.CreateAnonymousThread(
  procedure
  begin
    Toto(Text);
  end
  ).Start;
end;

Ta problématique était parce que tu voulais capturer une procédure, ça c'est impossible

[Papy214]

Merci pour cette précision