Discussion :

[Neal Morse]

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

[droggo]

Ho,

Ça compile ce truc ?

J'y vois un problème probable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        EstExtensionObj := EstExtensionObj();

Une variable qui porte le même nom que la fonction qui sert à lui donner une valeur ?

Comme j'ignore ce que fait ta fonction, j'ai testé le programme en supprimant la ligne ci -dessus, ainsi que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        EstExtensionObj := NomFichier;

Et c'est ok, comme c'était prévisible.

Donc, si ton programme compile (??), tes problèmes viennent de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        EstExtensionObj := EstExtensionObj();

[Neal Morse]

Bonjour,

Merci de ta réponse.

Bien oui ça compile, parce que c'est le résultat que retourne ma fonction :-)

J'ai fait plus simple et moins compliqué, s'il y a une erreur le programme affiche un message et stoppe. C'est moins joli mais bon ...