Page 12 - PowerPoint 演示文稿

o commencer par désactiver la détection automatique des erreurs par {$I-}
o réactiver la détection automatique des erreurs par {$I+} après la commande utilisée
o faire recours à la fonction IORESULT qui retourne une valeur <> 0 si le fichier n'existe pas

Exemple
En algorithme En pascal

Ecrire ("Entrer le nom du fichier : "), lire (nom) Write ('Entrer le nom du fichier : ');
Associer fich_caractere,"c:\"+nom+".dat") Readln (nom) ;
{$I-} {On désactive les erreurs d’E/S} Assign (fich_caractere,'c:\'+nom+'.dat');
Ouvrir (fich_caractere) {$I-} ReSet (fich_caractere) ; {$I+}
{$I+} {On réactive les erreurs} If ioresult <> 0 Then Begin ReWrite
Si ioresult <> 0 alors (Fich_caractere) ; Saisie(Fich_caractere)
Recréer (Fich_caractere) ; End ;
Saisie(Fich_caractere)
Fin si

Exercice 2 : Ecrire un programme qui permet de remplir un fichier avec n caractères (n>0) et de
déterminer la deuxième voyelle si elle existe.
Les Fonctions et procédures d’accès direct sur les fichiers :
Rôle Syntaxe algorithmique Syntaxe en Pascal

Pointer(nom_logique, numéro) Seek(nom_logique,numéro) ;
Accéder à un élément
d'un fichier (accès
direct.)

Taille_fichier(nom_logique) Filesize(nom_logique)
Retourner la taille d'un

Page 12