Thread transitoire par procédure anonyme (TThread.CreateAnonymousThread) Thread:transitoire par procédure anonyme

Des améliorations notables de syntaxe ont été apportées dans les dernières versions de Delphi XE. Maintenant, pour désynchroniser une action il n’est plus nécessaire de déclarer entièrement une nouvelle classe héritant de TThread. Dans le cas où l’on n’utilise cette désynchronisation qu’à un seul endroit et qu’il n’y a aucun code à mettre en commun, on peut utiliser le concept de « procédure anonyme ».

L’appel à la méthode CreateAnonymousThread raccourcit l’implémentation exposée précédemment. Le paramètre de la méthode est une procédure anonyme ne prenant aucun paramètre. Cependant, on pourra utiliser des variables de la procédure appelante sans problème.

Ainsi, on aura :

procedure TForm1.btnCalculClick(Sender: TObject); 
var AThread:TThread; 
   iterMax:integer; 
begin 
 // 
 iterMax := SpinEdit1.Value; 
 AThread := TThread.CreateAnonymousThread(procedure() 
 var iter:integer; 
   myRadian:Extended; 
   calculResult:double; 
   begin 
     iter := 0; 
     while (iter<iterMax)  do 
     begin 
   ...
Pour consulter la suite, découvrez le livre suivant :
couv_RIDELPH.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Thread transitoire TThread
Suivant
Thread persistant