Problème avec IOResult

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:

---

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

Ho,

Ça compile ce truc ?

J'y vois un problème probable:

Code:

---

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:

---

EstExtensionObj := NomFichier;

---

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

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

Code:

---

EstExtensionObj := EstExtensionObj();

---

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 ...