Suivre l'exécution d'une fonction par un Progress bar

Bonjour,
il te suffit d'incrémenter la progressbar à chaque fois qu'une action est faite dans ta fonction.

Exemple : une fonction qui divise sans arrêt un chiffre par 2 pour un nombre d'iterations défini, et qui donne le résultat (bon c'est bidon mais c'est un exemple) :

function LoopDivByTwo(Num: Integer, Iters: Integer): Integer;
Var
   I: Integer;
begin
        ProgressBar.Max := Iters;
         ProgressBar.Position := 0;
         for I := 1 to Iters do
            begin
                     ProgressBar.Position := ProgressBar.Position + 1;
                     Num := Num div 2;
            end;
        Result := Num;
end;

ProgressBar est bien sûr ta progressbar (trop fort l'humour ...).
N'oublie pas de déclarer la fonction dans Interface, et de noter la fonction dans implémentation de cette façon :

function TaForm.LoopDivByTwo(Num: Integer, Iters: Integer): Integer;

Tu vois la prog' c'est simple quand on sait comment procéder

Allez bonne continuation !

Cordialement, Bacterius !

PS : pense réponse acceptée