Section courante

A propos

Section administrative du site

BLOCKREAD

 Lecture d'un bloc
Virtual Pascal System

Syntaxe

Procedure BlockRead(fich:File; var x;enrs:LongInt;var enrs_lus:LongInt);

Paramètres

Nom Description
fich Ce paramètre permet d'indiquer l'identificateur de fichier
x Ce paramètre permet d'indiquer le tampon de réception des données
enrs Ce paramètre permet d'indiquer le nombre d'enregistrement à lire
enrs_lus Ce paramètre retourne le nombre d'enregistrement lu

Description

Cette instruction permet d'effectuer la lecture d'enregistrement dans un fichier.

Exemple

Voici quelques exemples typiques de l'utilisation de cette fonction contenu dans le fichier «BLOCREAD.PAS» :

  1. Program BlocRead;
  2.  
  3. Var
  4.  Handle:File;
  5.  Buffer:Array[0..1023]of Char;
  6.  I:Word;
  7.  ByteRead:LongInt;
  8.  
  9. BEGIN
  10.  WriteLn('---- Debut du fichier ---- ');
  11.  Assign(Handle,'BLOCREAD.PAS');
  12.  Reset(Handle,1);
  13.  Repeat
  14.   BlockRead(Handle,Buffer,1024,ByteRead);
  15.   For I:=0 to ByteRead do Write(Buffer[I]);
  16.  Until ByteRead < 1024;
  17.  Close(Handle);
  18.  WriteLn('---- Fin du fichier ----');
  19. END.

on obtiendra le résultat suivant :

---- Debut du fichier ----
Program BlocRead;

Var
 Handle:File;
 Buffer:Array[0..1023]of Char;
 I:Word;
 ByteRead:LongInt;

BEGIN
 WriteLn('---- Debut du fichier ---- ');
 Assign(Handle,'BLOCREAD.PAS');
 Reset(Handle,1);
 Repeat
  BlockRead(Handle,Buffer,1024,ByteRead);
  For I:=0 to ByteRead do Write(Buffer[I]);
 Until ByteRead < 1024;
 Close(Handle);
 WriteLn('---- Fin du fichier ----');
END.
---- Fin du fichier ----

Dernière mise à jour : Vendredi, le 29 juillet 2016