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
Site Hosting: Bronco