program
EX14P71;
uses
wincrt;
type
Film = record
Titre : string[30];
Acteur: string[10];
Annee : 1950..2007;
disponible : string[3];
end;
FFilm = file of Film;
var choix : 1..3;
F:FFilm;
q:boolean;
chemin : string;
{**************** Procedure pour creer un
nouveau fichier ********************}
procedure nouveauFichier (var F:FFilm);
var
rep : 'N'..'O';
racine
: 'A'..'H';
dossier,nomF : string[20];
begin
clrscr;
repeat
repeat
writeln('Voulez vous utiliser un chemin par défaut (C:\)? O pour oui, N
pour non ');
readln(rep);
rep := upcase(rep);
until (rep in ['N','O']);
writeln('Entrer le nom du fichier ');
readln(nomF);
if rep = 'O' then
begin
assign (F ,'C:\'+nomF+'.dat');
rewrite(F);
end
else
begin
{$i-}
write('Entrez le nom de la dossier (s''il ya
plusieurs dossier séparer les par \ (ALTGR + _ )');
readln(dossier);
write('Entrez la racine: (C , D , E etc ');
readln(racine);
if dossier = '' then
begin
assign(F, racine+':\'+nomF+'.dat');
rewrite(F);
end
else
begin
assign(F,
racine+':\'+dossier+'\'+nomF+'.dat');
rewrite(F);
end;
{$I+}
if IOResult <> 0 then
begin
writeln('*** Un problème est
servenu, verfir le chemin d''accée.
***');
end
else
writeln('*** La fichier ',nomF,' à
été creer dans ',racine+':\'+dossier+' avec succée. ***');
end;
until (rep = 'O') or (IOResult = 0);
readln;
end;
{****************
Procedure pour ouvrir une fichier existant *****************************}
procedure ouvrirFichier(var F:FFilm);
var
chemin:string;
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 ');