Discussion :

[dim07]

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

[Tardiff Jean-François]

Bonjour,

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

[dim07]

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

[DragonHeart]

Bonjour,

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

Code :

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

1
2
3
4
5
If FIc <> '' Then
Begin
  CloseFile(Fic);
  Fic := '';
End;

[dim07]

Ca ne compile pas non plus :

Code :

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

if Fic <> '' then

E2010 Types incompatibles : 'string' et 'Text'

Code :

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

Fic := '';

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

[ShaiLeTroll]

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

Code :

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

if TTextRec(TextFile).Mode = fmClosed then

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

[droggo]

Hou,

Bonjour,

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

Code :

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

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.

[dim07]

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