BLOCKWRITE |
Écriture d'un bloc |
|---|---|
| QuickPascal | 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.
Remarque
- La procédure BlockWrite écrive enrs ou moins d'enregistrements de la zone x dans le fich non typé. Une fois BlockWrite terminé, le paramètre facultatif enrs_ecrit contient le nombre réel d'enregistrements ayant été copiés. Seuls les enregistrements complets seront transférés. Si la taille du tampon n'est pas un multiple de la taille d'enregistrement spécifiée dans la procédure Reset ou Rewrite, un enregistrement partiel restera non écrit. Une erreur d'entrée/sortie se produira si enrs_ecrit n'est pas transmis et que le nombre réel d'enregistrements copiés est inférieur à enrs.
Exemple
Voici quelques exemples typiques de l'utilisation de cette fonction :
- Program BlockWriteSamples;
-
- Var
- Handle:File;
- Buffer:Array[0..127]of Byte;
- ByteWrite:Word;
-
- BEGIN
- Assign(Handle,'TEST.BIN');
- Rewrite(Handle,1);
- FillChar(Buffer,SizeOf(Buffer),0);
- Buffer[0] := 71;
- Buffer[1] := 76;
- Buffer[2] := 65;
- Buffer[3] := 68;
- Buffer[4] := 73;
- Buffer[5] := 82;
- BlockWrite(Handle,Buffer,SizeOf(Buffer),ByteWrite);
- Close(Handle);
- END.
on obtiendra le résultat suivant dans le fichier «TEST.BIN» :
GLADIR
Dernière mise à jour : Dimanche, le 4 mai 2014