readln(nomF);
if dossier = '' then
chemin := (racine+':\'+nomF+'.dat')
else
chemin := (racine+':\'+dossier+'\'+nomF+'.dat');
assign(F, chemin);
reset(F);
{$I+}
if IOResult <> 0 then
begin
writeln('*** Attention au chemin
et au nom du fichier ***');
end
else
writeln('*** La fichier ',nomF,'
est maintenant ouvert *** ');
until (IOResult = 0);
readln;
end;
{**************** Procedure pour supprimer
une fichier existant *****************************}
procedure supprimerFichier(var F:FFilm);
var
racine : 'A'..'H';
dossier,nomF : string[20];
begin
clrscr;
repeat
{$i-}
write('Entrez la racine: (C , D , E etc ');
readln(racine);
write('Entrez le nom de la dossier (s''il ya plusieurs dossier séparer
les par \ (ALTGR + _ )');
readln(dossier);
write('Entrer le nom du fichier ');
readln(nomF);
if dossier = '' then
begin
assign(F, racine+':\'+nomF+'.dat');
Erase(F);
end
else
begin
assign(F,
racine+':\'+dossier+'\'+nomF+'.dat');
Erase(F);
end;
{$I+}
if IOResult <> 0 then
begin
writeln('*** Fichier introuvable,
verifier le chemin d''accee et/ou le nom du fechier ***');
end
else
writeln('*** La fichier ',nomF,'
est supprimer avec succes *** ');
until (IOResult = 0);
readln;
end;
{**************** Procedure pour fermer une
fichier existant *****************************}
procedure fermerFichier(var F:FFilm);
var
racine : 'A'..'H';
dossier,nomF : string[20];
begin
clrscr;
repeat
{$i-}
write('Entrez la racine: (C , D , E etc ');
readln(racine);
write('Entrez le nom de la dossier (s''il ya plusieurs dossier séparer
les par \ ');
readln(dossier);
write('Entrer le nom du fichier ');
readln(nomF);
if dossier = '' then
begin
assign(F, racine+':\'+nomF+'.dat');
Close(F);
end
else
begin
assign(F,
racine+':\'+dossier+'\'+nomF+'.dat');
Close(F);