Section courante

A propos

Section administrative du site

BLOCKREAD

Lecture d'un bloc
Delphi/Kylix/Lazarus System

Syntaxe

Procedure BlockRead(Var F:File; Var Buf; Count: Integer [; Var AmtTransferred: Integer]);

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
AmtTransferred Ce paramètre retourne le nombre d'enregistrement lu

Description

Cette procédure 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.DPR» :

  1. Program BlocRead;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.          
  7. Var
  8.  Handle:File;
  9.  Buffer:Array[0..1023]of Char;
  10.  I:Integer;
  11.  ByteRead:Integer;
  12.          
  13. BEGIN
  14.  WriteLn('---- Debut du fichier ---- ');
  15.  Assign(Handle,'BLOCREAD.DPR');
  16.  Reset(Handle,1);
  17.  Repeat
  18.   BlockRead(Handle,Buffer,1024,ByteRead);
  19.   For I:=0 to ByteRead do Write(Buffer[I]);
  20.  Until ByteRead < 1024;
  21.  Close(Handle);
  22.  WriteLn('---- Fin du fichier ----');
  23. END.

on obtiendra le résultat suivant :

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

{$APPTYPE CONSOLE}

Uses SysUtils;

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

BEGIN
 WriteLn('---- Debut du fichier ---- ');
 Assign(Handle,'BLOCREAD.DPR');
 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 - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - BlockWrite
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - File
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Read
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ReadLn
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Reset
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Write
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - WriteLn

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