Section courante

A propos

Section administrative du site

BLOCKWRITE

Écrire un bloc
Free Pascal System

Syntaxe

Procedure BlockWrite(var f: ;const Buf;Count:Int64;Var Result:Int64);
Procedure BlockWrite(var f: ;const Buf;Count:LongInt;Var Result:LongInt);
Procedure BlockWrite(var f: ;const Buf;Count:Cardinal;var Result:Cardinal);
Procedure BlockWrite(var f: ;const Buf;Count:Word;Var Result:Word);
Procedure BlockWrite(var f: ;const Buf;Count:Word;Var Result:Integer);
Procedure BlockWrite(var f: ;const Buf;Count:LongInt);

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 écrit.

Description

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

Remarques

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

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - BLOCKREAD
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 - REWRITE
Langage de programmation - Free Pascal - Référence de procédures et fonctions - ASSIGN

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