Section courante

A propos

Section administrative du site

READLN

Lecture d'une ligne
Delphi/Kylix/Lazarus System

Syntaxe

Procedure ReadLn([Var fich:Text;]var1,var2,...);

Paramètres

Nom Description
fich Ce paramètre permet d'indiquer l'identificateur de fichier
var1, var2 Ce paramètre permet d'indiquer des variables ou du texte à lire

Description

Cette procédure permet de lire une ligne de texte à partir d'un périphérique, d'un fichier ou de la console.

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 :

  1. Program ReadLnSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.      
  7. Var
  8.  Handle:Text;
  9.  I:Byte;
  10.  CurrReadLine:String;
  11.      
  12. BEGIN
  13.  Assign(Handle,'readtext.txt');
  14.  Reset(Handle);
  15.  I := 1;
  16.  While NOT EOF(Handle) do Begin
  17.   ReadLn(Handle,CurrReadLine);
  18.   WriteLn(I,':',CurrReadLine);
  19.   Inc(I);
  20.  End;
  21.  Close(Handle);
  22. 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

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - AssignFile
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - CloseFile
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Eof
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Eoln
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - File
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 - Reset
Langage de programmation - Delphi/Kylix/Lazarus - Type de données élémentaires - TextFile
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Write
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - WriteLn

Dernière mise à jour : Mercredi, le 18 février 2015