Discussion :

[bubulemaster]

Bonjour,

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

Code :

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

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 :

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

1
2
3
4
try
except
   on EInOutError do ;
end ;

Merci.

[Clandestino]

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 :

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

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 :

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

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

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

Code :

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

writeln(lf.FileName);

Bonne programmation

[bubulemaster]

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.

[Clandestino]

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 :

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

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 :

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

if fileexists(filerec(f).name)

devrait resoudre ton problème

Bonne continuation

[bubulemaster]

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.

[Alcatîz]

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 :

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

1
2
3
4
5
{$HINTS OFF}
   ... bloc
   ... de
   ... code
{$HINTS ON}