Comment savoir si un fichier texte est fermé

Bonjour toutes et à tous,

J'enregistre des données dans un fichier Texte et j'ai donc :

Code:

---

1 2 3 4 5 6

F: TextFile   AssignFile(F, 'MonFichie'); ReWrite(F); ... CloseFile(F);

---

J'aimerais savoir si après le CloseFile, mon fichier est fermé. CloseFile prend la variable F renvoie sa valeur après fermeture. En débogage, en cliquant sur F avant et après fermeture du fichier, on voit que son contenu a changé, notamment son Handle qui est passé à -1.

Pour autant, je n'arrive pas à trouver de test basé sur ce F ou autre chose me montrant que le fichier est bien fermé.

Comment fait-on ?

Cordialement.

Pierre

Bonjour,
Qu'entends-tu par fermé ? Libre d'être ouvert à nouveau, cad non verrouillé par l'OS ? Dans ce cas, je ne sais pas.
Une précaution pourrait par contre être (si la fonction existe et est applicable à ce type de fichier) de faire un Flush(F) ou FlushFile(F) avant le Close, pour forcer l'OS à vider le tampon d'écriture avant de fermer, en cas d'écriture différée.

Citation:

---

Envoyé par tourlourou

Bonjour,
Qu'entends-tu par fermé ...

---

Dans mon application, un click sur un premier bouton écrit dans un fichier puis le ferme. Un click sur un autre bouton désactive mon premier bouton et de ce fait, refait ce que vient de faire le premier ... c'est à dire écrire et fermer le fichier alors qu'il avait été déjà fermé, d'où plantage. Je m'en sors en plaçant des drapeaux qui vont bien. Mais je me demandais s'il n'y avait pas déjà un drapeau ou une variable qui m'aurait permis d'éviter d'en rajouter un.

Cordialement.

Pierre

Bonjour,

Et en utilisant IoResult (encadré par les {$I} qui vont bien...?

Cordialement

Voici la documentation pour IOResult https://www.freepascal.org/docs-html.../ioresult.html .

Cette fonction est très ancienne et existait en Turbo Pascal bien avant que les exceptions et les classes aient été ajoutées au langage.

Citation:

---

Envoyé par acaumes

... Et en utilisant IoResult (encadré par les {$I} qui vont bien...? ...

---

Merci "acaumes" et "Pierre le Grand". J'avais envisagé cette solution, mais dans mon cas, cela revient à établir un drapeau.

En effet, dans mon cas, je n'écris pas dans le fichier par inadvertance, en ne sachant pas si le fichier est ouvert ou non, mais par une logique d'enchaînement d'actions des différents boutons. C'est donc à moi de me prévenir de cela par un drapeau.

Désolé, j'avais mal évalué mon problème.

Cordialement.

Pierre