[Delphi] Faire une pause dans une procedure

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;

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.

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 ?

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

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