[Delphi perso edition] Probleme avec la manip de fichiers.

Probleme avec la manip de fichiers. [Delphi perso edition] - Delphi/Pascal - Programmation

Marsh Posté le 21-03-2003 à 18:08:18    

Salut !!
J'ai creer une roulette en pascal et j'aimerais creer un fichier de sauvegarde , pour garder sur un fichier texte  les capitaux des 2 joueurs..
 
le code en bref (je mets le principal )
 
//-- variable
uses
  SysUtils , windows  ;
 
     var c_1, c_2 , mise, r_b1, r_b2 , r_b3 , j_1,j_2,j_3 , numcase , difficult : integer  ;
//array
niveau  : array [1..5] of integer ;
var sav : string  ;
var f : text ;
 
 
// procedure pour la sauvegarde :
procedure sauvegame     ;
begin
writeln('Voulez vous sauvegarder cette partie ? ( oui ou non)' ) ;
readln(sav);
if sav = 'oui' then
   begin
   assign ( f , 'saveroulette.txt';) ;
   rewrite(f);
   writeln('votre partie va etre enregistrer dans le fichier "saveroulette.txt"';);
   append(f);
   reset (f);
  writeln(f, c_1);     !!!!LE BUG EST ICI !!!
   writeln(f , c_2);    !!!!LE BUG EST ICI !!!

 
   close(f);
 
   end;
end;
 
et puis donc plus tard , j'apel cette procédure ..
en sachant que les valeur des capitaux sont = 1000 pour les 2 joueurs..
Ou est le bug ?  
Je capte pas


---------------
AfterEnd: Batissez un nouveau monde
Reply

Marsh Posté le 21-03-2003 à 18:08:18   

Reply

Marsh Posté le 21-03-2003 à 19:26:14    

Tu dis "le bug est ici" ... c'est quoi le bug ?
 
Puis tu pourrais présenter un peu mieux ton code :o
tag [code] pour la mise en forme dans le forum + guide pour l'écriture du code :  
http://community.borland.com/soapb [...] 80,00.html
http://jvcl.sourceforge.net/delphistyleguide.htm


Message édité par antp le 21-03-2003 à 19:29:20

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 22-03-2003 à 22:16:17    

Ben son vieux bug c que c_1 et C_2 sont des entiers, alors WriteLn a un peu de mal  :o  
 
SmilM... en Delphi, spa comme en VB, il va pas te faire les transtypages tout seul.
 


WriteLn(f,IntToStr(c_1));

 
 
devrait aider

Reply

Marsh Posté le 22-03-2003 à 22:21:25    

ciler a écrit :

son vieux bug


 
je supporte pas cette expression [:ciler]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 23-03-2003 à 17:33:33    

[:spamafote]


---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed