[Delphi] Faire une pause dans une procedure Fermé

Question

J'ai dévellopé en Delphi une application qui doit attendre une frappe au clavier ou la fin d'un timer pour continuer.Mon pb est le suivant, comment faire une pause dans une procedure ou est ce possible ?La seule solution que j'ai trouvé est de décompser la procedure en plusieurs procedures, ainsi le timer ou le clavier lance la suite.Je trouve ma solution pas très optimale car j'ai du faire appel à 7 procedure pour faire le traitement d'une seule.Pourriez vous m'indiquer si une autre solution existe ?Merci...

nabzone · Answer

pour faire une pause il existe la célébre fonction :sleep(X)  si X=1000 ---> 1 secondesi X=2000 ---> 2 secondes......

samounet · Answer

g une otre solution... mais ca marche en VB, je sais po pour delphil idee c de fairetant que fauxDoevents <---- ca veut dire que ca permet a d autre evenements de s executerfintqet en fait quand tu a une frappe au clavier, ou ton timer qui se declenche, tu metsq ton booleen a vraisi tu oublies le doevents, ton prog va boucler sans fin.... mais je connais po l equivalent de DoEvents en delphi, mais ca doit bien exister

samounet · Answer

ben ca m etonnes assez, parce que si tu fais un bete tant que fauxblahblahfintqdes que ton booleen passe a vrai il doit sortir du tant que...$t sur qu il y a pas une couille o nivo de tes noms de variables, quelle sont bien declarees en global... tout ca ?

samounet · Answer

chez moi ca marcheunit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Edit1: TEdit;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Déclarations privées }  public    { Déclarations publiques }  end;var  Form1: TForm1;  test : Boolean;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin         test :=false;        while not test do                application.ProcessMessages ;        edit1.Text:='pouet';end;procedure TForm1.Button2Click(Sender: TObject);begin test :=true;end;end.

nobody · Answer

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;

[Delphi] Faire une pause dans une procedure

5 réponses

Discussions similaires