Alternative à FileExists ?Résolu

Question

Bonjour !
Je viens de d&#233;couvrir sur un site une m&#233;thode alternative &#224;  FileExists :
AssignFile(F,FileName);
{$I-} 
Reset(F);
{$I+} 
if IoResult=0 then ...(reste du code si le fichier existe).
Connaissez-vous les avantages et inconv&#233;nients de cette m&#233;thode par rapport &#224; FileExists ?
Merci.

cs_Kenavo · Accepted Answer

{$I-}
bloque la gestion d'erreur d'entr&#233;es/sorties (IOError), IOResult permet
de r&#233;cup&#233;rer la valeur du code d'erreur car il y a en autres que la
simple absence du fichier (IOResult = 2)

par ex : 


IOResult = 3 : R&#233;pertoire non trouv&#233;


IOResult = 5 : Acc&#232;s refus&#233; (lecture seule par ex.)



IOResult est plus "fin" que FileExits. Un fichier peut exister mais peut ne pas &#234;tre accessible !...



Ken@vo

____________________

Code, Code, Codec !

yvemoreau · Answer

salut , je crois que FileExists teste seulement si le fichier existe lol ,alors qu'une procedure utilisant le reset(f) utilise l'espace ou charge le fichier en m&#233;moire ,donc tout d&#233;pend de l'utilisation ,dans cette exemple apr&#232;s le reset tu acc&#232;de directement au readln alors y faut n&#233;cessairement utiliser de la m&#233;moire.

faut pas oublier CloseFile(f) sinon le fichier est inaccessible apr&#232;s ...
peut-&#234;tre comme ceci:

Function TestFile(FileName
:String):Boolean;
var
F:File;
begin
     result:=false;// par d&#233;faut d&#233;j&#224; &#224; false je crois ...
     try
      AssignFile(F,FileName);
        Reset(F);
        closefile(F);

      result:=true;
    except;
    end;
end;

yve

japee · Answer

Salut, yvemoreau



Le retour ? 



Content que tu sois de nouveau sur le site, tes interventions  sont toujours int&#233;ressantes ! 



japee

japee · Answer

Heu... pour Kenavo (bien le bonjour), y'a rien &#224; dire, il est toujours l&#224;, et "poulvou qu&#233; &#231;a doul&#233;"...

pasque c'est pas pour dire, mais il assure ! 



Amiti&#233;s delphistes, les mecs

yvemoreau · Answer

Sinc&#232;re salutation Japee , oui c'est un peu &#231;a un petit retour ...

Toujours bien ici ,quoi que je me sente un peu rouill&#233; !!! Mais oui Kenavo c'est une tr&#232;s bonne pr&#233;cision ,alors mieux que fileExists ? &#231;a d&#233;pend de ce que l'on a de besoin,,,

Au plaisir !!!!

yve

Alternative à FileExists ?

5 réponses

Votre réponse

Discussions similaires