Discussion :

[Newllite]

bonjour,

Est ce quelqu’un un sais comment tester l’existence d un fichier sous turbo pascal de préférence avec (turbo pascal for windows 1.5)

Merci d'avance.

PS : j ai fais une recherche mais cela c est avère infructueux, donc je suppose que cela n a pas était traiter, ou bien je ne l’ai pas trouvé se qui est plus probable.

[Alcatîz]

Bonjour !

Tu peux te servir de la fonction OpenFile de l'API avec le flag OF_EXIST. Cette fonction gère les noms de fichiers MS-DOS ainsi que les noms longs.

[M.Dlb]

http://www.developpez.net/forums/vie...ght=fileexists

Voilà la réponse faite par le chef !

[Alcatîz]

J'ai lu trop vite la question : en voyant "Windows", j'ai plutôt pensé à une fonction de l'API Windows...

[M.Dlb]

Mais tu n'as pas tout à fait tort Alcatîz ! On devrait pouvoir utiliser l'API de Windows dan ce cas-ci !

[Newllite]

j ai trouver voila :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function existe-il(var f : file ) : boolean; {on passe en parametre un fichier}
    begin
 
           {$I-}
           Reset(f);
           {$I+}
           if IOResult = 0 then
               begin
                     existe-il := true;
                     close(f)
               end
           else existe-il := false;
     end;