Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions

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 :


				
Program ReadLnSamples;

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

  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

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

Section courante

A propos

Section administrative du site

READLN

Syntaxe

Paramètres

Description

Exemple

Voir également