Section courante

A propos

Section administrative du site

BLOCKWRITE

Écriture d'un bloc
Delphi/Kylix/Lazarus System

Syntaxe

Procedure BlockWrite(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 écrit

Description

Cette procédure 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. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.          
  7. Var
  8.  Handle:File;
  9.  Buffer:Array[0..127]of Byte;
  10.  ByteWrite:Integer;
  11.          
  12. BEGIN
  13.  Assign(Handle,'TEST.BIN');
  14.  Rewrite(Handle,1);
  15.  FillChar(Buffer,SizeOf(Buffer),0);
  16.  Buffer[0] := 71;
  17.  Buffer[1] := 76;
  18.  Buffer[2] := 65;
  19.  Buffer[3] := 68;
  20.  Buffer[4] := 73;
  21.  Buffer[5] := 82;
  22.  BlockWrite(Handle,Buffer,SizeOf(Buffer),ByteWrite);
  23.  Close(Handle);
  24. END.

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

GLADIR

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - BlockRead
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - 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 - 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