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
A voir également:
- PASCAL 7
- Photofiltre 7 - Télécharger - Retouche d'image
- Clé windows 7 - Guide
- Turbo pascal - Télécharger - Édition & Programmation
- Delphi 7 - Télécharger - Langages
- Dev pascal - Télécharger - Édition & Programmation
2 réponses
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
'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
et ca marche Pas le prob !!!!
:(
ta pa une autre solution !!!!!