Valeur variable TextFile

Bonjour,
J'utilise dans mon programme une variable globale, Fic: TextFile.
Mon problème est le suivant :
Dans un process, l'insctruction CloseFile(Fic); est appelée deux fois de suite.
J'aimerais tester si la variable est assignée mais impossible de compiler en testant Assigned(Fic);
Avez-vous une solution à me proposer ?
Merci

Bonjour,

Après "closefile(Myfile);" pourriez mettre "MyFile := nil;".
Ainsi vous pourriez tester si MyFile et assigné (isAssigned(Myfile) équivaut à MyFile <> nil)

Fic := nil; renvoit une erreur :
E2015 Opérateur non applicable à ce type d'opérande
(La partie gauche ne peut être affectée)

Bonjour,

Une simple idée me vient mais pourquoi ne pas faire ...

Code:

---

1 2 3 4 5

If FIc <> '' Then Begin CloseFile(Fic); Fic := ''; End;

---

Ca ne compile pas non plus :

Code:

---

if Fic <> '' then

---

E2010 Types incompatibles : 'string' et 'Text'

Code:

---

Fic := '';

---

E2015 Opérateur non applicable à ce type d'opérande

En transtypant dans le type interne, on devrait pouvoir écrire ceci :

Code:

---

if TTextRec(TextFile).Mode = fmClosed then

---

c'est ce que j'ai trouvé en étudiant System.pas, les fonctions TextOpen/TextClose

Hou,

Citation:

---

Envoyé par DragonHeart

Bonjour,

Une simple idée me vient mais pourquoi ne pas faire ...

Code:

---

1 2 3 4 5

If FIc <> '' Then Begin CloseFile(Fic); Fic := ''; End;

---

---

D'où sors-tu cette idée ?

Il vaut mieux s'abstenir de répondre plutôt que d'écrire n'importe quoi. :D

Merci a tous et surtout à ShaiLeTroll, ta réponse résoud mon problème.