Version imprimable
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;
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.
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
PS: si tu veux faire un compteur sur 30 secondes, tu ferais mieux d'utilier un timer plutot qu'un delay(1000) :ccool:
Citation:
Envoyé par denokan
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.
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
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.
Si tu appuyes sur la touche F1, ta boucle stoppe...Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
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.
il y avait une petite erreur sur le sens de la comparaison :
Code:
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
Salut,
ça fonctionne mais cela recommence à 1 au lieu de stopper
que faut-il faire ?
merci
dans ce cas, il faut remettre la déclaration de i en global
Code:
2
3
4
5
6
7
8
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;
Essais donc ceci:
Ou bien ceci:Code:
2
3
4
5
6
7
8
9
10
11
12procedure 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;
A+Code:
2
3
4
5
6
7
8
9
10
11
12
13
14procedure 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;