Bonjour voici mon code pour sauvegarder et charger mon fichier... il n'y a pas d'erreur de compilation ou de deboggage mais ça ne marche pas du tout Je demande donc votre aide...
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
Type TSauvegarde = File of TFNouveau;
 
Var Sauvegarde:TSauvegarde;
    Personnage:TFNouveau;
 
Procedure SauvegarderPartie;
Procedure ChargerPartie;
 
implementation
 
Procedure SauvegarderPartie;
Begin
Assign(Sauvegarde,'D:\Projet d''informatique\V3.0\Sauvegarde.dat');
rewrite(Sauvegarde);
write(Sauvegarde,FNouveau);
close(Sauvegarde);
End;
 
Procedure ChargerPartie;
Begin
Assign(Sauvegarde,'D:\Projet d''informatique\V3.0\Sauvegarde.dat');
reset(Sauvegarde);
Read(Sauvegarde,Personnage);
FNouveau:=Personnage;
Close(Sauvegarde);
End;