Read et Write avec 2 paramètres

**alfnet** · 20/08/2008, 21h31

Salut,

J'ai vus dans plusieurs tutos que pour écrire le contenu d'un tableau de RECORD dans un fichier séquentiel, on utilise qque chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
PROCEDURE Tab2File (VAR tab:tIndividu ; VAR fOut : fIndividu; lt : INTEGER);
(* Tab initialsé, fOut assigné et fermé, lt>0 *)
VAR i:INTEGER;
BEGIN
   REWRITE (fOut);
   FOR i := 1 TO lt DO
      WRITE (fOut, tab[i]);
   CLOSE (fOut);
END;

Alors que pour écrire le contenu d'un fichier séquentiel dans un tableau de RECORD, on utilise qque chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
PROCEDURE File2Tab (VAR fIn : fIndividu, VAR tabOut:tIndividu );
VAR i:INTEGER;
 
BEGIN
   i:=0;
   RESET (fIn);
   WHILE NOT eof(fIn) DO
      BEGIN
         i:=i+1;
         READ (fIn, tabOut[i]);
      END;
   CLOSE (fIn);
END;

J'aurais voulu savoir s'il y avait un rapport entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WRITE (fOut, tab[i]);

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

READ (fIn, tabOut[i]);

En d'autres termes, doit-on toujours utiliser WRITE pour écrire dans un fichier ce que l'on a lu dans un tableau et READ pour écrire dans un tableau ce qu'on a lu dans un fichier?

L'instruction de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part