THERENAMER

Commentaire de Delphiprog le 29/06/2003 08:08:53 administrateur CS

1/-Faudrait éviter de coder des chemins en dur :
assignfile(F,'E:ProjetTheRenamer enamer.ini');

2/- On peut simplifier et alléger l'écriture de :
if (ext = 'bmp') or (ext = 'jpg') or (ext = 'JPG') or (ext = 'jpeg') or(ext = 'JPEG')
en
ext := UpperCase(Ext);
if (ext = 'BMP') or (ext = 'JPG') or (ext='JPEG') then...

3/- le code :
tabfile[i].ext := copy(tabfile[i].filename,pos('.',tabfile[i].filename)+1,4);
est équivalent à :
tabfile[i].ext := ExtractFileExt(tabfile[i].filename);
Pour connaitre les attributs d'un fichier, tu peux utiliser FileGetAttr.

4/- Expliquer le code suivant :
      if(DeleteFile(temp+''+tabfile[i].filename))
      then
        DeleteFile(temp+''+tabfile[i].filename)
"si la suppression du fichier a réussi alors le supprimer" ?????