[LG]Problème d'écriture d'une variable dans un fichier

Coucou,

Encore ...

Je désirerais avoir une petite réponse ... ( Je vais bientôt attaquer la procedure SAVE GAME dans mon jeu ) ;

Je suis quasiment sur qu'il est possible d'écrire la variable A dans un fichier.

J'ai essayer la chose suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Uses crt, dos ;   Var A : char ; Var f : text ;   [ ... ]   Repeat   [ ... ]   Assign ( f ,' C:\.......\....\..... . txt' ) ; Rewrite ( f ) ; Write ( a ) ; Close ( f ) ;   Until   [ ... ]   END.

---

C'est grave docteur ???

Please expliqeur moi ça bug !!! et que ça n'écris rien dans le fichier !!!

AU SECOUR

A {écrire dans ... }+

Bruno

hum, TP, n'étant pas relié a un reseau de voyance, ne sait pas ou écrire A !!!
un write ( f, a ) l'aiderais surement un peu, et de plus, si tu veux écrire des variables dans un fichier, je te conseil un fichier typé dit file of.

je n'en dirait pas plus, car la réponse se trouve dans un tutoriel, celui de Cyberzoide entre autre...

++ Mathieu

Il faut que tu précises dans quel endroit tu veux écrire avec la procedure write. Le premier paramètre indique l'endroit où l'on écrit : si rien n'est spécifié, on écrit à l'écran, si une variable fichier ( de type text ) est spécifié, alors les variables passées en paramètres seront écrites dans ce fichier !!
a+

Oups on a posté au même moment !!
Tu auras donc compris qu'il faudra remplacer write(a) par write(f,a).
a+

Merci Beaucoup !!!

L'avantage de la grève des enseignats c'est qu'on à tout lm'apremidi pour developper !

Génial non !

A +

Bruno

Grrr... Ca fous rien de ses journée, c'est pas croyable ! En prépa, ils refusent de faire grève les profs... Tu penses, ils sont trop bien payés pour ça !
J'ai appris qu'ils étaient payés 1h30 pour 1h de cours... :?

A+

Bouh, le vilain !!! Il parle de la grève !!
Pour information, il est interdit de parler de la grève sur les forums de developpez.com :lol: Si si, c'est dangereux, je vous assure !!
a+

C'est pas moi qui ai lancé le sujet...

Mais si jamais ça gèene, je peux toujours virer mon message. Des fois qu'il aurait des esprits susceptiles.

A+

Ah oui, mais ce n'est pas moi non plus qui est lancé le sujet, mais bon... ca ma couté cher :lol:
a+

Pour revenir au sujet de depart,j'ai une petite question... :oops:
Lors du developpement de mon jeu en delphi (merci encore a Sub0) j'ai remarqué que l'on ne pouvait sauvegardé un fichier avec des types differents de int,char,... cela vient de quoi?

Si ton fichier a été déclaré en tant que "file of machin", tu ne pourras rentrer que des "machins" dans ton fichiers et pas des "bidules"... En théorie... Tu dois sûrement pouvoir faire un transtypage avant d'écrire les données dans le fichiers.
a+

Il est tout à fait possible d'écrire tout ce que l'on veut dans un fichier.

Tout dépend en fait de la manière dont tu veux être "assisté" par le compilateur Pascal, que ce soit TP7 ou bien Delphi.

Si ce sont toujours les même types de données qui reviennent, par exemple un Char, un Integer et un Pointer, alors il te suffit de créer un enregistrement (record) qui regroupera ces types, et ensuite de créer un file of "record", comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

type TRec = record C: Char; I: Integer; P: Pointer; end;   var f: file of TRec;

---

Si, par contre, les types sont "quasi" aléatoires, alors je pense qu'il faut savoir se passer des fichiers typés, pour n'utiliser que des fichiers non-typés, qui offrent une plus grande souplesse dans leur gestion.

Tout ce dont tu as besoin pour gérer ce type de fichiers, ce sont les procédures BlockRead et BlockWrite.

Le seul "inconvénient" de ces procédures, c'est qu'il faut nécessairement indiquer au compilateur la taille des données à lire (ou écrire).

Si on reprend l'exemple du dessus, ça donnerait ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

type TRec = record C: Char; I: Integer; P: Pointer; end;   var f: file; { Fichier non typé } R: TRec;   begin Assign(f, 'FICHIER.EXT'); Reset(f, 1); BlockRead(f, R, SizeOf(TRec)); . . . Close(f); end;

---

On remarquera le , 1 de Reset, qui indique que les éléments qui composent ce fichier sont d'une taille de 1 octet. Autrement dit, on peut lire des données dans ce fichier octet par octet.
Mefie-toi, par défaut, la taille est de 128 octets.

Pour plus de détails, demande.

A+

Merci en fait on avait trouvé une solution en mettant des int et on utilisait un case pour recupéré ce que l'on voulait en fonction du nombre.Mais si j'ai l'occasion de m'en resservir je te redemanderais.

Ah oui, en effet, je n'avais pas évoqué la possibilité du case dans un record.
Néanmoins, il n'y a pas que des avantages à utiliser cette structure. En effet, si on déclare un enregistrement comme ça :

Code:

---

1 2 3 4 5 6 7

type TRec = record case Integer of 0: (X: Integer); 1: (S: string); end;

---

Alros TRec aura une taille de 256 octets, alors que l'on ne voudra peut-être lire que 2 octets...
Mais, en passant par les pointeurs et la mémoire dynamique, on arrive à faire ce que l'on veut.

A+