bonjour à tous
j'ai un soucis avec les boucles et Lazarus que j'utilise depuis peu.

Je m'explique: j'ai un bouton, un memo et une boucle qui compte de 1 à 10000 avec affichage dans le mémo (et des labels).
Je veux afficher avec les labels, au cours de comptage, différents étapes; quand le compte est à 1000, 4000 et 8000 par exemple.
Le problème est que ces différents affichages (labels) ne se font qu'une fois la boucle terminée et non pas au fur et à masure du comptage. (l'affichage dans le mémo se fait normalement)
Comment faire pour remedier à ce problème?
(je n'avais pas çà sous Delphi)

Merci à tous pour vos interventions et vos solutions

Mon extrait de code...

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 TForm1.Button1Click(Sender: TObject);
var   i:integer;
       s:string;
begin
  i:=0;
  while  i<10000 do
  begin
     i:=i+1;
     if i>1000 then Label1.caption:='Etape 1 (1000)';
     if i>4000 then Label2.caption:='Etape 2 (4000)';
     if i>8000 then Label3.caption:='Etape 3 (8000)';
     str(i,s);
     Memo1.Lines.Add(s);
   end;
end;