sortir d'une boucle

Réponse acceptée !



 
var
  Stop : boolean = false; { control de sortie }

const
  MaxItC = 1000000; { max d'iterations }

procedure Boucle;
var ItC : integer;
begin
  { init }
  Stop := False;
  ItC := 0;
 
  { boucle tant que Stop=False et ItC inferieur a MaxItc }
  while (not Stop) and (ItC < MaxItC) do
  begin
    { ... code ... }
   
    Inc(ItC); { incremenation du compteur d'iteration }
    if (ItC mod 5) = 0 then { toute les 5 iteration on appel ProcessMessages pour
                              ne pas bloquer le programme }
       Application.ProcessMessages;
  end;
end;


procedure TFormX.ButtonStopClick(Sender : TObject);
begin
  { simple comme bonjour }
  Stop := true;
end;

---

Croc (click me)

Réponse acceptée !
Salut,

Petite remarque au passage concernant un piège courant -> si tu as deux boutons, un pour démarrer la résolution et un pour la stopper en cours de résolution, avec le code de f0xi, les deux boutons deviennent utilisables en plein calcul.

Autrement dit, l'utilisateur peut démarrer un nouveau calcul avant que le précédent ne soit finit... Tout dépend de l'algo, mais cela peut avoir des conséquences facheuses, si il modifie une variable globale par exemple...

On peut désactiver temporairement les boutons avec leurs propriété enable.

Réponse acceptée !

exact!


var
  Stop : boolean = false; { control de sortie }

const
  MaxItC = 1000000; { max d'iterations }

procedure Boucle;
var ItC : integer;
begin
  { init }
  ItC := 0;
 
  { boucle tant que Stop=False et ItC inferieur a MaxItc }
  while (not Stop) and (ItC < MaxItC) do
  begin
    { ... code ... }
   
    Inc(ItC); { incremenation du compteur d'iteration }
    if (ItC mod 5) = 0 then { toute les 5 iteration on appel ProcessMessages pour
                              ne pas bloquer le programme }
       Application.ProcessMessages;
  end;
end;


procedure TFormX.ButtonStopClick(Sender : TObject);
begin
  { simple comme bonjour }
  Stop := true;

  ButtonStart.Enabled := true;
  ButtonStop.Enabled  := false;
end;


procedure TFormX.ButtonStartClick(Sender : TObject);
begin
  ButtonStart.Enabled := false;
  ButtonStop.Enabled  := true;

  Stop := false;
  Boucle;
end;

---

Croc (click me)