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