[Free Pascal] Enregistrer une matrice dans un fichier

Bonjour !

Voici un exemple de programme qui enregistre un tableau de nombres entiers dans un fichier.

Code:

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
57
58
59
60
61
62
63
64
65
66
67
 
const
  FILENAME = 'fichier.txt';
 
type
  TTableau = array[1..4] of integer;
 
procedure Sauve(const aTableau: TTableau);
var
  vText: text;
  vIndex: integer;
begin
  Assign(vText, FILENAME);
  Rewrite(vText);
 
  for vIndex := Low(TTableau) to High(TTableau) do
    WriteLn(vText, aTableau[vIndex]);
 
  Close(vText);
end;
 
procedure Charge(var aTableau: TTableau);
var
  vText: text;
  vIndex: integer;
begin
  Assign(vText, FILENAME);
  Reset(vText);
 
  for vIndex := Low(TTableau) to High(TTableau) do
    ReadLn(vText, aTableau[vIndex]);
 
  Close(vText);
end;
 
var
  vTableau: TTableau;
  vIndex: integer;
 
begin
  Randomize;
 
  { Remplir le tableau de valeur aléatoire. }
  for vIndex := Low(TTableau) to High(TTableau) do
  begin
    vTableau[vIndex] := Random(100);
    WriteLn(vTableau[vIndex]);
  end;
 
  { Sauvegarder le contenu du tableau dans un fichier. }
  Sauve(vTableau);
 
  { Remettre à zéro toutes les valeurs du tableau. }
  for vIndex := Low(TTableau) to High(TTableau) do
  begin
    vTableau[vIndex] := 0;
    WriteLn(vTableau[vIndex]);
  end;
 
  { Recharger le tableau depuis le fichier. }
  Charge(vTableau);
 
  for vIndex := Low(TTableau) to High(TTableau) do
  begin
    WriteLn(vTableau[vIndex]);
  end;
end.

Citation:

23
94
51
24
0
0
0
0
23
94
51
24

Cette méthode fonctionnerait aussi avec un tableau à plusieurs dimensions, pourvu que le tableau soit toujours parcouru dans le même ordre (à l'écriture et à la lecture du fichier).