Discussion :

[Coucougnou]

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;

[Coucougnou]

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

[droggo]

Fao,

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.

[Coucougnou]

Oups désolé 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

[Tux++]

Simplement, si tu nous ne motnres pas tout ton code (et donc tous tes types), on ne sait rien faire

[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.

[Coucougnou]

Ok merci Voilà le Type TFNouveau

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

[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

[droggo]

Gia,

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

Je parie que le fichier créé a une taille = 4 octets ?

[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