Tester si un fichier est deja ouvert.
magicvinni
Messages postés
235
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
26 juillet 2010
-
5 juil. 2003 à 11:12
stigmate101 Messages postés 89 Date d'inscription mardi 17 juin 2003 Statut Membre Dernière intervention 30 avril 2020 - 8 juil. 2003 à 09:45
stigmate101 Messages postés 89 Date d'inscription mardi 17 juin 2003 Statut Membre Dernière intervention 30 avril 2020 - 8 juil. 2003 à 09:45
2 réponses
stigmate101
Messages postés
89
Date d'inscription
mardi 17 juin 2003
Statut
Membre
Dernière intervention
30 avril 2020
8 juil. 2003 à 08:47
8 juil. 2003 à 08:47
Je vais tester.
Cela m'enlève un gros problème.
a+
Cela m'enlève un gros problème.
a+
stigmate101
Messages postés
89
Date d'inscription
mardi 17 juin 2003
Statut
Membre
Dernière intervention
30 avril 2020
8 juil. 2003 à 09:45
8 juil. 2003 à 09:45
Excuse moi le message précédant ne t’étais pas destiné.
J’ai trouvé ce code, mais je ne l’ai pas testé tiens moi en informé j’ai le même PB.
Function EtatDuFichier(const LeFichier) : byte;
begin
case TTextRec(LeFichier).mode do
FMClosed : EtatDuFichier := 1; { Le fichier est fermé }
FMinput : EtatDuFichier := 2; { Le fichier est ouvert en lecture seule }
FMoutput : EtatDuFichier := 3; { Le fichier est ouvert en écriture seule }
FMInOut : EtatDuFichier := 4; { Le fichier est ouvert en lecture/écriture }
else
EtatDuFichier := 5; { Le fichier n'est pas assigné }
end;
end;
A+
J’ai trouvé ce code, mais je ne l’ai pas testé tiens moi en informé j’ai le même PB.
Function EtatDuFichier(const LeFichier) : byte;
begin
case TTextRec(LeFichier).mode do
FMClosed : EtatDuFichier := 1; { Le fichier est fermé }
FMinput : EtatDuFichier := 2; { Le fichier est ouvert en lecture seule }
FMoutput : EtatDuFichier := 3; { Le fichier est ouvert en écriture seule }
FMInOut : EtatDuFichier := 4; { Le fichier est ouvert en lecture/écriture }
else
EtatDuFichier := 5; { Le fichier n'est pas assigné }
end;
end;
A+