Application.ProcessMessages dans une table
J'ai vu code dans le faq delphi:
Code:
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.