J'ai vu code dans le faq delphi:
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 TForm1.ButtonMarcheClick(Sender: TObject);
var i : integer;
begin
  { Mise à faux de l'arrêt }
  Stop := False;
  I    := 0;
  { Traitement long }
  Repeat
    Inc(i);
    Label1.Caption := IntToStr(i);
    { Mise à jour des évènements en attente }
    Application.ProcessMessages;
  Until (i >= 100000000) or stop
end;
Par exemple, comment faire compter le nombre d'enregistrement dans une table en utilisant le code ci-dessus afin que l'utilisateur puisse suivre le déroulement du traitement ?
Merci d'avance.