EOF |
Fin de fichier |
---|---|
Turbo Pascal pour Windows | 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.
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;
-
- Uses WinCrt;
-
- 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
Dernière mise à jour : Dimanche, le 10 décembre 2017