Accueil de Gladir.com Notes légal de Gladir.com Flux RSS des nouvelles du site Gladir.com - Free Pascal - Fichiers - Lecture d'un fichier texte séquentiel Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

En FreePascal, il est relativement facile d'effectuer la lecture d'un fichier texte séquentiel. 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 :

  1. Program ReadText;
  2.  
  3. Var
  4.  Handle:Text;
  5.  I:Byte;
  6.  CurrLine:String;
  7.  
  8. BEGIN
  9.  Assign(Handle,'readtext.txt');
  10.  Reset(Handle);
  11.  I := 1;
  12.  While NOT EOF(Handle) do Begin
  13.   ReadLn(Handle,CurrLine);
  14.   WriteLn(I,':',CurrLine);
  15.   Inc(I);
  16.  End;
  17.  Close(Handle);
  18. 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
16:Seize


Dernière mise à jour: Jeudi, le 29 décembre 2011