Interompre boucle while not EOF(F)

Bonjour

Je lis un fichier texte avec une boucle while not EOF(F).
Seulement, j aimerais pouvoir interrompre la lecture apres X lignes.

si je fais un exit apres le test de la variable compteur, c est la procedure que je quitte alors que je ne souhaite quitter que la boucle...

Je pourrais le faire mais j aimerais savoir s il existe une solution pour interrompre une telle boucle

Merci de votre aide

Yop !

Utilise Break.
Extrait de l'aide Delphi :

Citation:

---

La procédure Break fait quitter le flux de contrôle dans le code Delphi d'une instruction for, while ou repeat et passe à la prochaine instruction qui suit l'instruction de boucle.

Un appel à Break doit être contenu dans une instruction for, while ou repeat, ou bien le compilateur génère une erreur.

---

salut

il suffit de connaitre ta condition de sortie

Code:

---

1 2 3 4 5 6 7

i := 0 while ((not(f.eof)) and (i < X)) do begin .... Inc(i); end;

---

@+ Phil

Merci à vous deux