Programme de lecture de fichier : file not found
Bonjour à tous,
voici mon problème :
j'ai écrit un petit programme qui permet de lire la première ligne d'un fichier texte, mais je ne comprend pas : celui-ci me retourne l'erreur "le fichier n'existe pas".
Je viens d'installer Turbo Pascal sur windows Xp, j'ai déjà fait quelques petits programmes basiques, il marche très bien.
Mais dès que je veux faire un programme sur les fichiers, il me retourne cette erreur.
D'avance merci pour vos réponses.
Voici le programme :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| program lireligne;
uses crt;
var
ligne: string;
f: text;
begin
ClrScr;
assign(f,'c:\tp7\status126.txt');
reset(f);
while not eof(f) do
begin
readln(f,ligne);
writeln(ligne);
end;
close(f);
readln;
end. |