1 ------------------------------------------------------------------------------------------------
2 -- Nom : Enregistrer_Fractal --
3 -- But : Enregistrer les caracteristiques d'un fractal dans un fichier --
5 -- Parametres ----------------------------------------------------------------------------------
6 -- In : * Le nom du fichier : Nom_Fichier --
7 -- * Les caracteristiques de la fractal : Fractal --
9 ------------------------------------------------------------------------------------------------
10 procedure Enregistrer_Fractal (Nom_Fichier : String; Fractal : Cara_Fractal) is
12 Fichier_Fractal : Fractal_IO.File_Type; --Le fichier
14 begin --Enregistrer_Fractal
16 Fractal_IO.Create (Fichier_Fractal, Fractal_IO.Out_File, Nom_Fichier); --Cree le fichier
17 Fractal_IO.Write (Fichier_Fractal, Fractal); --Ecrit les informations
18 Fractal_IO.Close (Fichier_Fractal); --Ferme le fichier
20 exception --Traite les exceptions concernant les fichiers
21 when Fractal_IO.Name_Error | Fractal_IO.Device_Error =>
24 end Enregistrer_Fractal;
26 ------------------------------------------------------------------------------------------------
27 -- Nom : Charger_Fractal --
28 -- But : Charger les caracteristiques d'un fractal depuis un fichier --
30 -- Parametres ----------------------------------------------------------------------------------
31 -- In : * Le nom du fichier --
33 -- out : * Les caracteristiques de la fractal --
35 ------------------------------------------------------------------------------------------------
36 procedure Charger_Fractal (Nom_Fichier : String; Fractal : out Cara_Fractal) is
38 Fichier_Fractal : Fractal_IO.File_Type; --Le fichier
40 begin --Enregistrer_Fractal
42 Fractal_IO.Open (Fichier_Fractal, Fractal_IO.In_File, Nom_Fichier); --Ouvre le fichier
43 Fractal_IO.Read (Fichier_Fractal, Fractal); --Lit les informations
44 Fractal_IO.Close (Fichier_Fractal); --ferme le fichier
46 exception --Traite les exceptions concernant les fichiers
47 when Fractal_IO.Name_Error | Fractal_IO.Device_Error =>