1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
| (* déclaration de l'enregistrement *)
type donnee = record
n : integer;
s : string;
end;
(* déclaration du type de fichier (fichier de l'enregistrement ci-dessus) *)
type fichier_de_donnee = file of donnee; (* fichier d'enregistrement = file of ... *)
procedure ecriture(F : fichier_de_donnee, d : donnee);
begin
Rewrite(F); (* là on crée notre fichier et on l'ouvre en écriture *)
(* on écrit l'enregistrement dans le fichier *)
write(F,d);
(* ON FERME LE FICHIER ! *)
close(F);
end;
procedure lecture(F : fichier_de_donnee, var d : donnee);
begin
Reset(F); (* là on ouvre notre fichier en lecture *)
(* on écrit l'enregistrement dans le fichier *)
read(F,d);
(* ON FERME LE FICHIER ! *)
close(F);
end;
(* déclaration des variables *)
var
d1, d2 : donnee;
F : fichier_de_donnee;
(* code principal *)
begin
Assign(F, "C:\donnees.dat"); (* on associe notre fichier à un nom sur le disque *)
(* on remplit les champs de l'enregistrement *)
d1.n = 1;
d1.s = "test";
(* affichage de l'enregistrement à l'écran *)
writeln('notre enregistrement de depart est : n = ', d1.n, ' ; s = ', d1.s);
(* on crée le fichier et on écrit l'enregistrement dedans *)
ecriture(F, d1);
(* on ouvre le fichier et on lit l'enregistrement que l'on vient d'écrire *)
lecture(F, d2);
(* affichage de l'enregistrement récupéré à l'écran *)
write('notre enregistrement lu dans le fichier est : n = ', d2.n, ' ; s = ', d2.s);
end. |
