Problème de sauvegarde de fichier

Version imprimable

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 :D Je demande donc votre aide...

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
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;

25/04/2008, 21h21
Coucougnou

Je précise juste que FNouveau est la variable du personnage de mon jeu...
25/04/2008, 22h24
droggo

Fao,

Citation:

Envoyé par Coucougnou

Je précise juste que FNouveau est la variable du personnage de mon jeu...

Sommes-nous devins pour savoir ce qui ne va pas ?

D'autre part, tu utilises des variables globales : à éviter pour programmer proprement.
26/04/2008, 11h17
Coucougnou

Oups désolé :oops: C'est juste que j'espérais avoir fait une petite erreur sémantique que vous qui avez l'habitude auriez peut-être vu... Mais si vous ne pouvez pas m'aider c'est pas grave ;) Merci quand même.
Quentin
26/04/2008, 11h31
Tux++

Simplement, si tu nous ne motnres pas tout ton code (et donc tous tes types), on ne sait rien faire ;)
26/04/2008, 12h07
Alcatîz

Bonjour,

Quel compilateur utilises-tu ?
S'il s'agit de Turbo Pascal, Turbo pascal for Windows ou Borland Pascal for Windows, les noms longs de fichiers ne sont pas supportés. ;)

Ok merci :D Voilà le Type TFNouveau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TFnouveau = class(TForm)
ftitre: enumeration_titre ;//dans la liste cul terreux/fermier/prospecteur/mac/parrain
fnom_perso: string;//nom du personnage
fprenom_perso:string;//prenom du personnage
fage: integer;//age du personnage
fbudget:integer;//budget disponible pour le personnage
fimage : enumeration_image;//image du personnage en fonction de son titre
fsigne:string;//signe astrologique du personnage
fvachepreferee:string;
fnbrevachesmortes:integer;
fnbrevachesvendues:integer;
fqtelaitvendu:integer;
fqtefoinachete:integer;
fqteeauconsommee:integer;
fterrain:array [1..16] of TTableauTerrain;//Tableau des 16 terrains

Si vous avez besoin d'autres informations dites le moi ;)
Merci encore
Quentin

26/04/2008, 22h02
univermina

salut, j'ai utilisé le Turbo pascal 7.0, je pense que la fote est ds la procedure sauvegarder ,

je pence que fait(assign) une seul,

mais d'apres votre procedure tu es entrin d'assigné le fichier a chaque fois que tu sauvgarde

une autre chose , quand tu utilise (rewrite) a chaque fois que tu appel ta procedure , tu efface le fichier ,

normalemen c commça voila
26/04/2008, 22h23
droggo

Gia,

Ce n'est pas ainsi que tu peux sauver une TForm.

Je parie que le fichier créé a une taille = 4 octets ?
27/04/2008, 09h56
Coucougnou

En effet il a une taille de 4 octets... comment enregistrer une TForm ? Il y a quelque chose de particulier à faire ?
Merci encore
Quentin