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

READLN	Lecture d'une ligne
Free Pascal	System

Syntaxe

Procedure ReadLn(var F: Text;Args: Arguments);

Procedure ReadLn(Args: Arguments);

Paramètres

Nom	Description
F	Ce paramètre permet d'indiquer l'identificateur de fichier
Args	Ce paramètre permet d'indiquer des variables ou du texte où entreposer le résultat.

Description

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

Remarques

La procédure ReadLn lit une ou plusieurs valeurs d'un fichier F et entrepose le résultat dans Args. Ensuite, il passe à la ligne suivante du fichier. La fin de la ligne est marquée par l'un des styles de fin de ligne pris en charge, indépendamment de la plate-forme sur laquelle le code s'exécute (les styles de fin de ligne pris en charge sont CRLF, LF ou CR). Le marqueur de fin de ligne n'est pas considéré comme faisant partie de la ligne et est ignoré lors de l'entreposage du résultat.
Si aucun fichier F n'est spécifié, l'entrée standard est lue. Les variables Args doivent être de type Char, Integer, Real, String ou PChar.
Si aucune donnée n'est disponible, des valeurs vides sont renvoyées (0 pour les valeurs ordinales, des chaînes de caractères vides pour les valeurs de chaîne de caractères).
Windows : Sous le système d'exploitation Windows, lorsque vous faites une entrée de données à partir de la console, bien la procédure fonctionne malgré tout, l'affichage disparaît immédiatement après avoir entrée l'information sauf si vous utilisez l'unité Crt.

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 ReadLnSamples;

 
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);


  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 16:Seize

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - READ
Langage de programmation - Free Pascal - Référence de procédures et fonctions - BLOCKREAD
Langage de programmation - Free Pascal - Référence de procédures et fonctions - WRITE
Langage de programmation - Free Pascal - Référence de procédures et fonctions - BLOCKWRITE

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

Section courante

A propos

Section administrative du site

READLN