PASCAL 7

Fermé
Utilisateur anonyme - 21 mai 2006 à 16:56
byakhlefncr Messages postés 260 Date d'inscription vendredi 1 juillet 2005 Statut Membre Dernière intervention 11 septembre 2008 - 23 mai 2006 à 13:13
slt
g un problém en execution de mon program en Turbau pascal 7{il permet d'ecrire sur un fichier texte : voila la code source
pegram fichier;
uses Dos ;
var
f:Text;
ch:string;
begin
assign (f,'c:\Mehdi.Txt);
write ('saisire un texte...');readln(ch);
writeln(f,ch); {ici il me dit file not open for output !!!!! meme si mon fichier en lecture et ecriture}
close(f);
end.
quelqun peut me donner 1 coupde main SVP et merci pour l'aide :)
A voir également:

2 réponses

byakhlefncr Messages postés 260 Date d'inscription vendredi 1 juillet 2005 Statut Membre Dernière intervention 11 septembre 2008 63
22 mai 2006 à 12:44
Salut,

il te manque l'instruction d'ouverture du fichier après assign(f,'c:\Mehdi.Txt);
- soit :
reset(f); // pour ouvrir le fichier et continuer d'ecrire à sa fin
- soit :
rewrite(f); // pour créer le fichier s'il n'existe pas et le recréer s'il existe déja.



Bonne chance.
1
Utilisateur anonyme
22 mai 2006 à 16:20
merci bien Pour Votre Répense Mais g esseyer avec Reset(f);
et ca marche Pas le prob !!!!
:(
ta pa une autre solution !!!!!
0
byakhlefncr Messages postés 260 Date d'inscription vendredi 1 juillet 2005 Statut Membre Dernière intervention 11 septembre 2008 63
23 mai 2006 à 13:13
Salut,

'Reset' fonctionne si le fichier existe. s'il n'existe pas il faut utiliser 'rewrite'.

J'ai essayer ce code et ça marche bien.
----------------------------------------------------------
Begin
assign (f,'c:\Mehdi.Txt');
Rewrite(f);
write ('saisire un texte...');
readln(ch);
writeln(f,ch); {ici il me dit file not open for output !!!!! meme si mon fichier en lecture et ecriture}
close(f);
End.
-----------------------------------------------------------

Bonne chance
1