Section courante

A propos

Section administrative du site

BLOCKREAD

Lecture d'un bloc
Turbo Pascal 1+ System

Syntaxe

Procedure BlockRead(fich:File; var x;enrs:Integer;var enrs_lus:Integer); Version 1 à 3
Procedure BlockRead(fich:File; var x;enrs:Word;var enrs_lus:Word); Version 4 à 7

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.

Remarques

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:Word;
  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:Word;

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

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 108 à 109.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1214.

Dernière mise à jour : Dimanche, le 25 janvier 2015