Discussion :

[KHEOPS1982]

Salut à tous,
je voudrais faire une boucle pour que dans une case cela compte de 1 jusque 30 . j'ai fait le code ci-dessous mais cela ne fonctionne pas très bien quand je lance le programme et que j'appuie sur le bouton il faut attendre et puis le chiffre 30 s'inscrit. pouvez-vous me dire où ça bug
merci


procedure TForm1.Button10Click(Sender: TObject);
begin
i:=1;
repeat
i:=i+1;
delay(1000);
j:=inttostr(i);
edit3.text:= j ;
until i=30;
end;

[Gaadek]

C'est tout à fait normal!

En fait, lorsque tu clique sur le bouton, la procédure se lance sans jamais rendre la main aux autre fonctions du programme, notemment celles chargées de rafraichir ton composant Edit.

Pour autoriser le gestionnaire d'événenment à traiter ses informations, il faut que tu ajoutes la ligne Application.ProcessMessages; dans ta boucle (juste avant le until).


Cela va en quelque sorte laisser le temps au gestionnaire d'événement de travailler.

[denokan]

le problème vient de ta procédure Delay qui bloque le programme, donc la mise à jour de l'affichage des ton composants graphiques (et notemment ton Edit3). Essaye de placer Application.ProcessMessages() à la suite du Delay

[Gaadek]

PS: si tu veux faire un compteur sur 30 secondes, tu ferais mieux d'utilier un timer plutot qu'un delay(1000)

[Gaadek]

le problème vient de ta procédure Delay qui bloque le programme, donc la mise à jour de l'affichage des ton composants graphiques (et notemment ton Edit3). Essaye de placer Application.ProcessMessages() à la suite du Delay

Le delai n'a rien à voir dans cette histoire... Même sans, son programme ne rafraichira pas le composant Edit tant que le gestionnaire des événements n'aura pas repris la main.

[KHEOPS1982]

Salut,

merci Gaadek pour l'astuce, cela fonctionne mais maintenant je voudrais arrêter la boucle non pas quand cela arrive à un chiffre mais par l'appui d'une touche du clavier. mais je sais pas trop comment faire alors si vous pouvez m'éclairer se serait sympa

merci

[Gaadek]

Utilise l'événement OnKeyDown sur ton controle form.

Lorsque cet événement est appelé, tu testes la touche qui est pressée (variable key) et tu mets à jour une variable globale.

Cette variable globale doit alors être ajoutée dans la condition de ton pas until.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
var
  StopLoop: boolean = false;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift:  ShiftState);
begin
  if(Key = VK_F1) then
    StopLoop := true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  StopLoop := false;
  repeat
  ...
  until (i<30) and not StopLoop
end;

Si tu appuyes sur la touche F1, ta boucle stoppe...

[KHEOPS1982]

salut gaadek,

il me met la ligne :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: ShiftState);
en erreur :
[Erreur] Unit1.pas(31): Identificateur non déclaré : 'ShiftState'
[Erreur] Unit1.pas(31): ';' attendu(e) mais '(' trouvé(e)
[Erreur] Unit1.pas(31): Identificateur non déclaré : 'FormKeyDown'

que dois-je faire ?
merci

[KHEOPS1982]

Salut,

ça marche , j'ai trouvé .je crois qu'il y avais une erreur ds la ligne .j'ai trouvé la même ligne sur le web. mais qd je fais tourner le programme il commence à 1 et puis s'arrête




var
Form1: TForm1;
StopLoop: boolean;
i:integer;
j:string;

implementation

{$R *.dfm}
procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if(Key = VK_F1) then
StopLoop := true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=0;
StopLoop := false;
repeat
i:=i+1;
j:=inttostr(i);
edit1.text:=j;
delay(2000);
Application.ProcessMessages;
until ( not StopLoop);
end;

end.

[tourlourou]

il y avait une petite erreur sur le sens de la comparaison :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var
 Form1: TForm1;
 StopLoop: boolean;
 
implementation
 
{$R *.dfm}
procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 if(Key = VK_F1) then
  StopLoop := true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer; // mieux en local
 s: string;
begin
 i:=0;
 StopLoop := false;
 repeat
  i:=i+1;
  s:=inttostr(i);
  edit1.text:=s;
  delay(2000);
  Application.ProcessMessages;
 until StopLoop; // on veut s'arrêter quand il est mis vrai par la pression de F1
end;
 
end.

[KHEOPS1982]

Salut,
ça fonctionne mais cela recommence à 1 au lieu de stopper
que faut-il faire ?
merci

[tourlourou]

dans ce cas, il faut remettre la déclaration de i en global

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
begin
// i:=0; ne pas remettre à 0 à chaque entrée
 StopLoop := false;
 repeat
  Inc(i);
  s:=inttostr(i);
  edit1.text:=s;
  delay(2000);

[KHEOPS1982]

Salut,
ça ne fonctionne toujours pas. qd j'appuie sur la touche . ça s'arrête puis cela repart en sautant un chiffre. exemple : j'arrête à 31 ça arrête puis repart à 33

var
Form1: TForm1;
StopLoop: boolean;
i: integer;
s: string;
implementation

{$R *.dfm}
procedure FormKeypress(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if(Key = VK_escape) then StopLoop := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StopLoop := false;
repeat
Inc(i);
s:=inttostr(i);
edit1.text:=s;
delay(2000);
Application.ProcessMessages;
until StopLoop;
end;

[Philippe Gormand]

Essais donc ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button10Click(Sender: TObject);
begin
     i:=1;
    repeat
      i:=i+1;
      delay(1000);
      j:=inttostr(i);
      edit3.text:= j ;
     Edit3.Refresh;
    until i=30;
end;

Ou bien ceci:

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.Button10Click(Sender: TObject);
Var 
    I : integer;

begin
     For  i:= 1 To 30 Do
      begin
          delay(1000);
          j:=inttostr(i);
          edit3.text:= j ;
     Edit3.Refresh;
    end;
end;

A+