Accueil        Lexique        UNITéS        Algorithmes        Tutoriel   

Les unités de Pure Pascal (langage Pascal pour les ordinateurs de la gamme Atari ST), compatible Turbo Pascal.

Unité System : Procédure BlockRead

Déclaration

procedure BlockRead( var f : File; var buffer; count : LongInt; [ ; var result : LongInt ] )

Description

La procédure BlockRead lit le nombre d'enregistrements count du fichier non typé f dans la mémoire tampon buffer. La taille d'un enregistrement est déterminée par le 2ème paramètre de Reset lors de l'ouverture du fichier.
"buffer" peut être n'importe quel type de variable, mais il doit être suffisamment grand pour contenir le nombre d'octets lus.
Ce nombre d'octets à lire est calculé à partir du nombre * taille d'un enregistrement. Le paramètre "result" peut être transféré en option : après la fin de BlockRead, result contient le nombre d'enregistrements complètement lus. Si le paramètre "result" est manquant, le programme est interrompu avec une erreur d'exécution en cas d'erreur ou si la fin du fichier est dépassée.
La position de lecture dans f est décalée vers la fin du fichier du nombre d'enregistrements lus.

Si la vérification des E/S {$ I-} est désactivée, IOResult renvoie la valeur 0 si BlockRead a pu être exécuté sans erreur.

Références croisées Assign BlockWrite Close Reset File

Exemple

var
  source, destination : File;
  readCount, writtenCount : LongInt;
  buffer : array[1..4096] of Byte;
begin
  if ParamCount <> 2 then
    Halt( 1 )
  else
  begin
    Assign( source, ParamStr( 1 ));
    Assign( destination, ParamStr( 2 ));
    Reset( source, 1 );
    Rewrite( destination, 1 );
    repeat
      BlockRead( source, buffer,
                 SizeOf( buffer ), readCount );
      BlockWrite( destination, buffer,
                 SizeOf( buffer ), writtenCount );
    until ( readCount = 0 )
            or ( readCount <> writtenCount );
    Close( source );
    Close( destination );
  end;
end.

Vous trouverez dans cette zone la liste de toutes les Unités (équivalent des "Librairies" en C) de Pure Pascal. Les Unités indiqués comme standards existent dans la majorité des compilateurs Pascal existant sur ordinateurs 16 bits et au dela (dont Turbo Pascal 3 mini). Les unités indiqués comme Atari sont spécifiques aux systèmes d'exploitation des Atari ST (TOS n.n).

Accès aux unités

Les menus déroulants de chaque unité sont des accès directs aux procédures et fonctions, classés alphabétiquement (sans tenir compte de la casse, puisque le langage Pascal ne tient pas compte de la casse!)
CRT (Standard)

DOS (Standard)

GEM : AES (Atari)

GEM : VDI (Atari)

Graph (Standard)

Overlay (Standard)

Printer Strings (Standard)

System (Standard)

TOS : BIOS (Atari)

TOS : GEMDOS (Atari)

TOS : XBIOS (Atari)

Cette page Unités est issu du fichier UNIT.HLP de la documentation de Pure Pascal (d'Application Systems Heidelberg), qui a été convertie en format TXT puis traduite de l'Allemand grâce à Google Translator : des milliers de copier/coller de et vers Google translator ont été nécessaires, ne connaissant pas un mot d'Allemand!


Copyright © 2021 par Albatros Concept (Bruno Aubin)