IMPORT/BACK-UP DE FICHIERS ET DOSSIERS UTILS

Commentaire de JulioDelphi le 20/01/2005 22:17:51 administrateur CS

hello, plusieurs petits conseils :
1) pourquoi mettre "code juste bon pour mon ordi" au lieu d'essayer de choper proprement le chemin ?
exemple, au lieu de :

outlookin:= 'C:\Documents and Settings\Néo\Local Settings\Application Data\Identities\{B63ADADB-3872-426F-A5DF-D95DAB55F67E}\Microsoft';

tu chch la clé : HKEY_CURRENT_USER\Identities - Default User ID
puis tu fais :

outlookin:= 'C:\Documents and Settings\'+UserName+'\Local Settings\Application Data\Identities\'+CleID+'\Microsoft';

2) comme le dit ni69, il existe la propriété "autocheck" donc dans la Forme il a raison, et moi pour le Fond je te conseille de faire plutot dans ce style avec des booleans :

MonBooleen := not MonBoolean;
ce qui revient à la meme chose que :
if MonBooleen := true then MonBooleen:= false else MonBooleen := true;

quand meme mieux non ?

3) "innexistant" ne prends qu'un seul N "inexistant"

4) showmessage('fichier innexistant dans : '+outlookin); peut etre remplacé par :
showmessagefmt('fichier innexistant dans : %s',[outlookin]); tres utiles quand il y a plusieurs parametres (ici un seul > outlookin)

5) a ta place je creerais tes variables contenants les chemins dès la création. a toi de voir

voila pour moi =) bon travail a vue d'oeil, je testerais la source compilée bientot et pourrais commenter le dfm :p

Commentaire de ni69 le 21/01/2005 13:13:36

autre chose : pas de fichiers inutiles du genre *.~* (ça encombre les serveurs)
Voilà @+