Probleme avec la manip de fichiers. [Delphi perso edition] - Delphi/Pascal - Programmation
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
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
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
SmilM... en Delphi, spa comme en VB, il va pas te faire les transtypages tout seul.
|
devrait aider
Marsh Posté le 22-03-2003 à 22:21:25
ciler a écrit : son vieux bug |
je supporte pas cette expression
Marsh Posté le 23-03-2003 à 17:33:33
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