Salut,

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

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;

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;

WRITE (fOut, tab[i]);

READ (fIn, tabOut[i]);

READ (tab[i], fOut);

WRITE (tabOut[i], fIn);