Section courante

A propos

Section administrative du site

BLOCKWRITE

Écriture d'un bloc
Turbo Pascal pour Windows System

Syntaxe

Procedure BlockWrite(fich:File; var x;enrs:Word;Var enrs_ecrit:Word);

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_ecrit Ce paramètre retourne le nombre d'enregistrement écrit

Description

Cette instruction permet d'effectuer l'écriture d'enregistrement dans un fichier.

Exemple

Voici quelques exemples typiques de l'utilisation de cette fonction :

  1. Program BlockWriteSamples;
  2.  
  3. Var
  4.  Handle:File;
  5.  Buffer:Array[0..127]of Byte;
  6.  ByteWrite:Word;
  7.  
  8. BEGIN
  9.  Assign(Handle,'TEST.BIN');
  10.  Rewrite(Handle,1);
  11.  FillChar(Buffer,SizeOf(Buffer),0);
  12.  Buffer[0] := 71;
  13.  Buffer[1] := 76;
  14.  Buffer[2] := 65;
  15.  Buffer[3] := 68;
  16.  Buffer[4] := 73;
  17.  Buffer[5] := 82;
  18.  BlockWrite(Handle,Buffer,SizeOf(Buffer),ByteWrite);
  19.  Close(Handle);
  20. END.

on obtiendra le résultat suivant dans le fichier «TEST.BIN» :

GLADIR

Dernière mise à jour : Dimanche, le 10 décembre 2017