Bonjour à tous.
J'ai ce petit code en Pascal :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program fichier
uses wincrt;
type
etudiant=record
nom:string;
note:real;
end;
fich=file of etudiant;
var
f:fich;
ch:string;
begin
write('introduire le chemin de fichier:');
readln(ch);
assign(f,ch);
{$I-}reset(f) {$I+};
if IOResult<>0 then
begin
write('le fichier n'existe pas:');
rewrite(f);
end;
close(f);
end.
J'utilise Turbo Pascal comme environnement.
Lors de l'exécution il m'affiche "le fichier n'existe pas", suivi d'un message d'erreur Runtime error 3:0001:00A9 et le fichier ne se crée pas sur le disque dur.
Quelqu'un peut-il proposer une solution ?