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

EOF	Fin de fichier
Free Pascal	System

Syntaxe

Function EOF(Var f):Boolean;

Function EOF(Var t:Text):Boolean;

Function EOF:Boolean;

Paramètres

Nom	Description
f	Ce paramètre permet d'indiquer l'identificateur de fichier
t	Ce paramètre permet d'indiquer l'identificateur de fichier texte

Description

Cette fonction indique si la fin du fichier est atteinte.

Remarques

La fonction Eof renvoie True si le pointeur de fichier a atteint la fin du fichier, ou si le fichier est vide. Dans tous les autres cas, la fonction Eof renvoie False. Si aucun fichier f n'est spécifié, l'entrée standard est prise en compte.
Notez que l'appel de cette fonction peut entraîner l'attente de votre programme : pour déterminer si vous êtes à EOF, il est nécessaire de lire les données. Si le descripteur de fichier n'est pas un fichier réel (par exemple pour une entrée standard ou des sockets), cet appel peut sembler bloquer le programme pendant qu'il attend que les données apparaissent ou que le descripteur de fichier soit fermé.
En fonction de l'état de la directive {$I}, une erreur d'exécution peut être générée en cas d'erreur. Dans l'état {$I-}, utilisez la fonction IOResult pour rechercher les erreurs.

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

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - «Eoln»
Langage de programmation - Free Pascal - Référence de procédures et fonctions - «Assign»
Langage de programmation - Free Pascal - Référence de procédures et fonctions - «Reset»
Langage de programmation - Free Pascal - Référence de procédures et fonctions - «Rewrite»

Dernière mise à jour : Samedi, le 18 juillet 2015

Section courante

A propos

Section administrative du site

EOF