Bonjour,
je cherche comment enregistrer au format texte une liste chaînée de listes chaînées de listes chaînées de chaînes de caractères pour la recharger ensuite ?
La structure ::=
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 type T_Bloc_Reponse; type Bloc_Reponse_Access is access T_Bloc_Reponse; type T_Bloc_Reponse is record Reponse : String_Access; Suivant : Bloc_Reponse_Access; end record; type T_Liste_Reponse is record Taille : Natural := 0; Tete, Dernier, Courant : Bloc_Reponse_Access; end record; type T_Bloc_question; type Bloc_question_Access is access T_Bloc_question; type T_Bloc_question is record question : String_Access; Suivant : Bloc_question_Access; Reponses : T_Liste_Reponse; end record; type T_Liste_question is record Taille : Natural := 0; Tete, Dernier, Courant : Bloc_question_Access; end record; type T_Bloc_User; type Bloc_User_Access is access T_Bloc_User; type T_Bloc_User is record Logname : T_Logname; Questions : T_Liste_Question; Suivant : Bloc_User_Access; end record; type T_Liste_User is record Taille : Natural := 0; Tete, Courant : Bloc_User_Access; end record; Data_Base : T_Liste_User;
Partager