Bonsoir,

Je veux ouvrir un fichier, s'il n'existe pas j'écris un message d'erreur et je rappelle la fonction. La partie du code intéressante :

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
 
//EstExtensionObj est ma fonction
{$I-}
Assign (Fichier, 'roms/'+NomFichier) ;
Reset (Fichier);
{$I+}
IO:=IOResult;
write(IO);
if IO <> 0 then
    Begin
        writeln('Erreur pendant l''ouverture du fichier.');
        EstExtensionObj := EstExtensionObj();
    End
else
    Begin
        close(Fichier);
        EstExtensionObj := NomFichier;
    End;
Le souci est que si je mets un nom de fichier bidon, j'ai bien l'erreur qui s'affiche, et la fois d'après si je mets un fichier valide il me remet l'erreur. Ce n'est que le troisième fois qu'il trouvera le fichier valide ...
J'ai toujours l'erreur 2 (fichier introuvable) comme réponse.

Si je mets directement un fichier valide, il l'ouvre normalement.

Y a-t-il une fonction, quelque chose que j'ai oublié ?

Merci d'avance,

Bonne soirée