6.2. Utilisation

Exemple

   {transfert d'un tableau d'enregistrements
    dans un fichier }

    const MaxTab = 100;
    type Enregistrement = record . . .
                              end;
    var I: integer;
        F: file of Enregistrement;
        Tab: array[1..MaxTab]
             of Enregistrement;
    begin
      rewrite(F,'NomDuFichier');
      ... { suite d'instructions définissant}
      ... { le contenu de Tab }
      for I := 1 to MaxTab do begin
        F^ := Tab[I];
        put(F);
        end; { for }
      close(F, Lock);
      ... {suite du programme }
    end.

   {transfert d'un fichier dans un tableau}
    ...
    reset(F,'NomDuFichier');
   {EOF vrai si le fichier} est vide }
    I := 0;
    while not eof(F) do begin
      I := succ(I);
      Tab[I] := F^;
      get(F); {Lit la prochaine valeur, }
              {EOF vrai s'il n'y en a plus}
      end; { while }
    close(F);
    ...

6.3. Fichiers TEXT

Table des matières.

Site Hosting: Bronco