PASCAL 7
Utilisateur anonyme
-
byakhlefncr Messages postés 260 Statut Membre -
byakhlefncr Messages postés 260 Statut Membre -
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 :)
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 :)
Configuration: Turbau Pascal 7
2 réponses
-
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. -
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
