[Delphi] Faire une pause dans une procedure
Fermé
le.schtroumpf.jedi
Messages postés
66
Date d'inscription
samedi 8 septembre 2001
Statut
Membre
Dernière intervention
18 novembre 2003
-
23 sept. 2001 à 14:10
nobody - 27 août 2007 à 10:20
nobody - 27 août 2007 à 10:20
5 réponses
procedure TForm1.Button1Click(Sender: TObject);
begin
test :=false;
while not test do
application.ProcessMessages ;
edit1.Text:='pouet'; <------là tu ralentis lexécution de ton programme inutilement en définissant indéfiniment la valeur de ton contrôle
end;
il vaut mieux :
procedure TForm1.Button1Click(Sender: TObject);
begin
test :=false;
edit1.Text:='pouet';
while not test do
application.ProcessMessages ;
end;
begin
test :=false;
while not test do
application.ProcessMessages ;
edit1.Text:='pouet'; <------là tu ralentis lexécution de ton programme inutilement en définissant indéfiniment la valeur de ton contrôle
end;
il vaut mieux :
procedure TForm1.Button1Click(Sender: TObject);
begin
test :=false;
edit1.Text:='pouet';
while not test do
application.ProcessMessages ;
end;