Section courante

A propos

Section administrative du site

BLOCKREAD

Lecture d'un bloc
Free Pascal System

Syntaxe

Procedure BlockRead(Var f:;Var Buf;count:Int64;Var Result:Int64);
Procedure BlockRead(Var f:;Var Buf;count:LongInt;Var Result:LongInt);
Procedure BlockRead(Var f:;Var Buf;count:Cardinal;Var Result:Cardinal);
Procedure BlockRead(Var f:;Var Buf;count:Word;Var Result:Word);
Procedure BlockRead(Var f:;Var Buf;count:Word;Var Result:Integer);
Procedure BlockRead(Var f:;Var Buf;count:Int64);

Paramètres

Nom Description
f Ce paramètre permet d'indiquer l'identificateur de fichier.
Buf Ce paramètre permet d'indiquer le tampon de réception des données.
count Ce paramètre permet d'indiquer le nombre d'enregistrement à lire.
Result 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 ----

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - BLOCKWRITE
Langage de programmation - Free Pascal - Référence de procédures et fonctions - CLOSE
Langage de programmation - Free Pascal - Référence de procédures et fonctions - RESET
Langage de programmation - Free Pascal - Référence de procédures et fonctions - ASSIGN

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