Discussion :

[sp2308]

Bonjour

Je lis un fichier de double avec une boucle repaet/until

durant la lecture je cherche à savoir si la valeur lue est >= valeur memorisee + 10

Si tel est le cas, j affecte la valeur lue à la valeur memorisee et affiche sur un chart cette valeur

je souhaiterais, apres l affichage de cette valeur, attendre l appui sur un bouton pour poursuivre la lecture de mon fichier mais je n ai aucune idee de comment faire

un conseil svp...

merci pour votre aide

[macumba]

Si je comprend bien ton pb, c'est de pouvoir utiliser un bouton arrêt/poursuivre dans une boucle.
Il faut juste mémoriser dans ton programme 1 variable booléenne Arret par exemple. Il faut définir par contre Arret et valmemo en variable globale.

Par contre en faisant ca tu bloques ton fichier pour les autres

repeat
...
until (Eof(ficheir) and (not Arret)

Sur le bouton tu repasses la valeur Arret à Faux.
Et quand value >= valmemo + 10 Arret = Vrai

[kaouane]

non macumba, ça provoque la sortie de la boucle. Il faut :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
repeat  
.... 
arret:=true; 
while arret do Application.ProcessMessages; 
... 
Until (ton test); 
end;  
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
.... 
arret:=false; 
end;

[macumba]

C'est pas ce que demande sp2308, il ne demande pas un arrêt de la boucle sur le bouton. Donc pas besoin des ProcessMessages. Il demande un arrêt de la lecture des fichiers sous condition.
Par contre c'est vrai qu'il y a un petit pb dans ce que j'ai marqué.

ca serait plus ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
.... 
arret:=false; 
end; 
 
repeat  
.... 
 Arret  := vallue >= valmemo + 10;
 
Until Arret or Fichier.Eof ;

[sp2308]

merci

c est bien plus simple que ce que j ai cherche a mettre en place ...