Langage de programmation - Turbo Pascal - Référence de procédures et de fonctions

EOF	Fin de fichier
Turbo Pascal 1+	System

Syntaxe

Function Eof(fich:File):Boolean;

Paramètres

Nom	Description
fich	Ce paramètre permet d'indiquer l'identificateur de fichier

Description

Cette fonction indique si la fin du fichier est atteinte.

Remarques

Le paramètre fich, s'il est spécifié, est une variable de fichier. Si fich est omis, la variable de fichier standard Input est utilisée. La fonction Eof(F) renvoie True si la position actuelle du fichier dépasse le dernier caractère du fichier ou si le fichier ne contient aucun composant; sinon, Eof(F) renvoie False.
Avec la directive {$I-}, la fonction IOResult renvoie 0 si l'opération a réussi, sinon, il retourne un code d'erreur différent de zéro.

Exemple

Prenons pour acquis que le fichier «readtext.txt» est le contenu :

Un Deux Trois Quatre Cinq Six Sept Huit Neuf Dix Onze Douze Treize Quatorze Quinze Seize

Pour lire le fichier «readtext.txt» et afficher chacune de ses lignes avec un numéro en avant, il suffit d'écrire les instructions dans l'ordre et la ressemblant suivante :



Program EofSamples;

     

Var

 Handle:Text;


 I:Byte;

 CurrReadLine:String;

     

BEGIN


 Assign(Handle,'readtext.txt');

 Reset(Handle);


 I := 1;

 While NOT EOF(Handle) do Begin


  ReadLn(Handle,CurrReadLine);

  If EOF(Handle)Then WriteLn('Derniere ligne !!!');


  WriteLn(I,':',CurrReadLine);

  Inc(I);


 End;

 Close(Handle);

END.

on obtiendra le résultat suivant :

1:Un 2:Deux 3:Trois 4:Quatre 5:Cinq 6:Six 7:Sept 8:Huit 9:Neuf 10:Dix 11:Onze 12:Douze 13:Treize 14:Quatorze 15:Quinze Derniere ligne !!! 16:Seize

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 159.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1226.

Dernière mise à jour : Dimanche, le 25 janvier 2015

Section courante

A propos

Section administrative du site

EOF