Suppression des messages hint pour des types File

Bonjour,

j'ai deux variables de type file. J'ai le message suivant :

Code:

---

1 2	Hint: Local variable "lF" does not seem to be initialized Hint: Local variable "lFileOut" does not seem to be initialized

---

Comment faire pour les initialiser à une valeur invalide (j'ai essayé nil ça ne fonctionne pas) pour :
1 - supprimer les messages,
2 - savoir si les variables ont été initialisée avec AssignFile() (<> de la valeur d'initialisation).

J'ai pourtant entouré mon code d'un :

Code:

---

1 2 3 4

try except on EInOutError do ; end ;

---

Merci.

Ces messages ne sont pas des messages d'erreur mais des conseils (hint)

Si j'ai bien compris, tu cherches à savoir au cours de ton programme quel fichier a été assigné à quelle variable....
A ma connaissance, le type file ne stocke pas le nom du fichier assigné, donc il semble difficile de le connaitre plus tard dans le code.

Tu peux toujours créer un objet avec sa propre procédure qui conserve le nom du fichier assigné :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

type TMyFile = Object FileName : string; FileVar : file; procedure AssignMyFile (s: string); end; var lf Tmyfile;   procedure Tmyfile.AssignMyfile (s: string); begin assignfile(self.fileVar, s); self.FileName := s; end;

---

si tu assignes tes fichiers ainsi :

Code:

---

lf.AssignMyFile('c:\test.txt');

---

tu peux à chaque instant savoir quel est le fichier assigné

Code:

---

writeln(lf.FileName);

---

Bonne programmation

Citation:

---

Envoyé par Clandestino

Si j'ai bien compris, tu cherches à savoir au cours de ton programme quel fichier a été assigné à quelle variable....

---

Non, en fait je voudrais simplement savoir si la varaible lF est assigné et donc si derrière il y a un fichier sans savoir nécessairement lequel est-ce.

lf est assignée si tu lui a transmis une string, indépendemment de l'existence ou non d'un fichier correspondant à cette string.
Contrairement à ce que je pensais, tu as accès au nom du fichier assigné sans créer d'objet supplémentaire via le code :

Code:

---

filerec(lf).name

---

Un simple test sur la valeur de cette expression te renseignera sur l'assignation (ou non) de lf

Par contre pour tester l'existence du fichier spécifié par l'assignation tu disposes de la fonction FileExists dans sysutils.

bref, un bout de code du genre :

Code:

---

if fileexists(filerec(f).name)

---

devrait resoudre ton problème

Bonne continuation

Bonne astuce.

Mais ça ne supprime pas le Hint, c'est embêtant car je cherche à ce qu'il n'y ait pas de message lors de la compilation.

Bonjour,

Si tu veux absolument empêcher les hints sur cette portion de code, tu peux encadrer celui-ci avec des directives de compilation :

Code:

---

1 2 3 4 5

{$HINTS OFF} ... bloc ... de ... code {$HINTS ON}

---