Copier un fichier avec CopyFile --> erreur à cause du uses Windows

Copier un fichier avec CopyFile --> erreur à cause du uses Windows - Delphi/Pascal - Programmation

Marsh Posté le 13-05-2003 à 16:00:20    

Je souhaite tout simplement effectuer la copie
d'un fichier et pour cela je veux utiliser la
fonction CooyFile.
Pour cela, je dois faire une importation:

Code :
  1. uses Windows;


mais cela crée des erreurs avec mes autres
procédures qui contiennent notamment des
FindClose()  et  DeleteFile()
 
Comment faire alors sans écrire une fonction
qui recrée un fichier avec TFileStream  :??:  
 
Merci

Reply

Marsh Posté le 13-05-2003 à 16:00:20   

Reply

Marsh Posté le 14-05-2003 à 03:14:20    


C'est quoi tes messages d'erreur avec FindClose et DeleteFile? Que ce sont pas des pchar gnagnagna? Hum...
 
Ok, donc je suppose que tu as un uses au dessus de ton unit et qu'un peu plus bas comme un bourrin t'as foutu uses Windows;
 
Remonte au dessus de l'unit et fait qqchose du genre
 
uses
  Windows, SysUtils, Classes; // + tes autres uses évidemment
 
Et ca ira.
 
Sinon tu peux forcer l'appel à la fonction d'une unit, genre SysUtils.DeleteFile ou Windows.DeleteFile, vu que je suppose que le DeleteFile que tu utilises est celui de SysUtils.
 
 :hello:


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 14-05-2003 à 10:30:00    

Ouai, ben là ça fonctionne, sans mettre d'erreur..  :??:  
J'avais mis le "Windows, SysUtils, Classes" également
dans le uses du haut la dernière fois, mis à part
qu'il n'étaient pas dans cet ordre-là..
 
Est-ce qu'il y a un ordre de priorité dans les uses ??
En tous cas,
 
merci bien.  :jap:

Reply

Marsh Posté le 14-05-2003 à 13:34:59    

Ndmax a écrit :


Est-ce qu'il y a un ordre de priorité dans les uses ??
En tous cas,


 
Oui y a un ordre, en rajoutant Windows  puis SysUtils c'est les fonctions de SysUtils qui sont utilisées par défaut puis Windows si y a pas dans SysUtils, si tu fous SysUtils puis Windows ce sera d'abord de Windows puis SysUtils ;)


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 14-05-2003 à 14:16:11    

Et bien voilà, c'est ça qui me faisait merder
la première fois!
Merci  ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed