Assignation d'un fichier

Bonjour,

Je souhaiterai savoir si une variable de type file of byte est assigné ?
Ci joint un code d'exemple classique.
Code:

1 2 3 4 5 6 7 8 9 10 11 Procedure Open_File; var FD : file of byte; begin if OpenDialog1.Execute then begin AssignFile(FD, OpenDialog1.FileName); Rewrite(FD); CloseFile(FD); end; end;
Ce que je souhaite dans mon programme, comme je ne sais pas si FD est déjà assigné, faire un test du type, "SI FD assigné" "Alors CloseFile(FD)".
Merci pour votre aide.

Dans le cas que tu nous présentes, FD a une portée locale à la procédure.
Il est donc tout neuf à chaque entrée dans cette procédure, et relâché en sortie de procédure.

Meci pour la réponse.
FD est bien une variable globale.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 VAR FD : file of byte; Procedure TExemple.OpenFile (Filename : string); begin AssignFile(FD, OpenDialog1.FileName); Rewrite(FD); end; Procedure TExemple.CloseFile; begin CloseFile(FD); end;
Quel test puis-je faire sur FD, avant de faire le "closeFile", ou "AssignFile" pour savoir si il est assigné ou non ?
Merci.

Hélas, comme tu le dis si bien, c'est une variable, et pas un objet.
A mon avis, la seul possibilité est de tenter une action sur FD (un seek ?) encadrée par les directives {$i-} et {$i+} avec un test sur la fonction IOResult...
Une alternative aux File of byte pourrait être les TFileStream ; là un flux est un objet et c'est facile de le tester par Assigned.
Voici un extrait de l'aide de D7

Citation:

Il existe plusieurs approches que vous pouvez adopter pour la lecture et l'écriture de fichiers*:

L'approche recommandée pour la manipulation de fichiers consiste à utiliser des flux de fichier. Les flux de fichier sont des instances de la classe TFileStream utilisées pour accéder aux informations de fichiers disque. Les flux de fichier sont portables et proposent une approche de haut niveau des opérations d'E/S de fichier. Comme les flux de fichier mettent à disposition le handle de fichier, cette approche peut être combinée avec la suivante. La rubrique Utilisation de flux de fichier décrit TFileStream.

Vous pouvez travailler avec des fichiers en utilisant une approche basée sur un handle. Les handles de fichier sont fournis par le système d'exploitation lorsque vous créez ou ouvrez un fichier pour manipuler son contenu. L'unité SysUtils définit un certain nombre de routines de gestion de fichiers qui manipulent des fichiers en utilisant des handles. Sous Windows, il s'agit généralement d'enveloppes de fonctions de l'API Windows. Comme les fonctions BaseCLX peuvent utiliser la syntaxe du langage Delphi et fournissent occasionnellement les valeurs par défaut des paramètres, elles peuvent facilement servir d'interface à l'API Windows. De plus, il existe des versions correspondantes sous Linux, de sorte que vous pouvez utiliser ces routines dans des applications multi-plates-formes. Pour utiliser une approche basée sur un handle, ouvrez tout d'abord un fichier en utilisant la fonction FileOpen ou créez un nouveau fichier en utilisant la fonction FileCreate. Lorsque vous disposez du handle, utilisez les routines basées sur un handle pour manipuler son contenu (écrire une ligne, lire le texte, etc.).

L'unité System définit un certain nombre de routines d'E/S de fichier qui manipulent des variables fichier, généralement de la forme "F: Text:" ou "F: File:" Les types de variables fichier sont au nombre de trois*: typé, texte et sans type. De nombreuses routines de gestion de fichier, comme AssignPrn ou writeln, les utilisent. L'utilisation de variables fichier est désapprouvée, et ces types de fichier ne sont pris en charge qu'à des fins de compatibilité ascendante. Ils sont incompatibles avec les handles de fichier Windows. Si vous avez besoin de travailler avec ces types de fichiers, voir Fichiers non typés et Types de fichiers.

Bonjour,

On peut faire avant l'assignfile :
Code:

1 2 (*$I-*) filepos(FD) (*$I+*) ; if ioresult=0 then showmessage('Fichier ouvert') ;
Mais je crérérais plutôt une variable FD_Name qui contiendrait le nom de fichier entre l'open et le close, sinon FD_Name='' (FD non assigné).