EOF |
Fin de fichier |
|---|---|
| Delphi/Kylix/Lazarus | 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
- La fonction Eof renvoie True si le fichier fich est à la fin du fichier. La fonction Eof n'est pas une véritable fonction.
- Si le fichier fich n'est pas ouvert, la fonction Eof signale l'erreur d'entrée/sortie 103.
- Le fichier fich doit avoir été ouvert en appelant Reset. Si le fichier a été ouvert en appelant Rewrite ou Append, Eof signale une erreur d'entrée/sortie 104.
Exemple
Prenons pour acquis que le fichier «readtext.txt» est le contenu :
UnDeux
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;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils;
-
- 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:Un2: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 - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - BlockRead
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Eoln
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Read
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ReadLn
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - SeekEof
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - SeekEoln