Discussion :

[Annaced]

Bonjour,

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

Code :

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

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.