Sujet Précédent Sujet Suivant

THERENAMER

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 29 juin 2003 à 08:08
cs_raybane Messages postés 2 Date d'inscription samedi 28 juin 2003 Statut Membre Dernière intervention 9 avril 2005 - 29 juin 2003 à 13:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12640-therenamer
cs_raybane Messages postés 2 Date d'inscription samedi 28 juin 2003 Statut Membre Dernière intervention 9 avril 2005
29 juin 2003 à 13:02
Merci Delphiprog je l'avait trop programmer a la va vite. et Merci des astuces a+
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
29 juin 2003 à 08:08
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" ?????
Rejoignez-nous