Comment auriez-vous fait ?

**Bleys** · 08/08/2006, 18h47

Non non ce topic n'est pas un remake du Défi Delphi, c'est juste pour savoir comment vous vous auriez fait ce programme.

Vous trouverez ci-joint les sources d'une application que je viens de créer dans un soucis d'utilité personnel (sisi je vous jure des fois c'est utile). Bien que je suis persuadé que ce programme existe déjà, c'est toujorus plus plaisant de se le confectionner soi-même.

Bref cesse de bavardage et arrêtons de tourner autour du pot. Regardez les sources (enfin si vous en avez envie), vous l'aurez compris il s'agit d'un programme pour renommer toute une liste de fichier se trouvant dans un même répertoire (notemment en fait pour les photos, les images etc ...).
Bref, mon programme tourne sans soucis (autant que je sache, mais vous comment auriez-vous programmé ceci ?

Ce sujet est donc la juste pour que je puisse voir comment on aurait pu faire autrement et pour améliorer ma façon de programmer.

Je ne sais pas si je trouverai beaucoup de posteur sur ce sujet, mais j'aurais tenté au moins

merci, bonne soirée

**chaours** · 08/08/2006, 19h17

Salut,

je suis interressé de voir ce "Renommeur" mais je crains que je n'ais pas la bonne version de Delphi...
En quelle version es-tu ?

Perso je tourne en V7

**Bleys** · 08/08/2006, 19h31

Exact j'ai oublié de précisé,
Je tourne sous la version Borland Studio Developper 2006.

Je peux te passer l'exe si tu veux. Après pour la source tu n'as qu'a éditer les fichiers avec NotePad

Tu veux l'Exe ?

**thewho** · 08/08/2006, 19h42

Bonjour,

Envoyé par Bleys

Bref cesse de bavardage et arrêtons de tourner autour du pot. Regardez les sources (enfin si vous en avez envie), vous l'aurez compris il s'agit d'un programme pour renommer toute une liste de fichier se trouvant dans un même répertoire (notemment en fait pour les photos, les images etc ...).
Bref, mon programme tourne sans soucis (autant que je sache, mais vous comment auriez-vous programmé ceci ?

Je n'ai pas encore lu les sources, mais prends-tu en compte le contenu des sous-répertoires (en option, pas systématiquement) ?

Si ce n'est pas le cas, je t'assure que c'est très souvent utile.

**Bleys** · 08/08/2006, 19h50

Non je ne l'ai pas pris en compte, mais effectivment j'aurais pu ajouter cette option ...

Mais dans le cadre de mon utilisation, je n'en avais pas besoin ...

**Bejaia-In** · 08/08/2006, 19h59

Ajouter quelques lignes de commentaires a un code, c'est comme d'ajouter un sucre à un café un peu fort.

**chaours** · 08/08/2006, 20h02

Pas besoin de l'EXE... J'ai réussi à bidouiller pour le compiler...

**Bleys** · 08/08/2006, 20h06

Envoyé par Bejaia-In

Ajouter quelques lignes de commentaires a un code, c'est comme d'ajouter un sucre à un café un peu fort.

Il est vrai que j'ai pas trop comenté celui-ci ...

**chaours** · 08/08/2006, 22h40

Après analyse, j'aurais fait ça comme ceci...
Peux de chose change mais ça peut t'aider...

**Bleys** · 08/08/2006, 23h45

Ca m'a l'air un peu plus joli (d'où ce topic),

Je vais analyser ça, ça te dérange pas si je te pose quelques questions (pas sur encore)

Merci

**Bleys** · 09/08/2006, 00h06

Peut-on revenir sur cette procédure ?

Code :

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

1
2
3
4
5
6
7
8
procedure ChangeObjectState(Group : TGroupBox; State : boolean);
var
  Index : integer;
begin
  for Index := 0 to Group.ControlCount-1 do begin
    (Group.Controls[Index] as TControl).Enabled := State;
  end;
end;

Par rapport à son déroulement, ce que l'on demande de faire, c'est de récupérer tous les objets contenu dans le GroupBox, les objets de type TControl et de les mettre disponible ou pas en fonction de State ?

Ma question provient principalement sur la récupération des obkets, pas le fait de mettre en disponible ou pas.

C'est bien ça en fait ?

Il me vient alors une question bête :

A chaque fois qu'on crée un GroupBox, dans celui ci, tous les objets sont répertorié ? Une sorte de numéro par objet contenu dans le group ?

Également, comment savoir quand est-ce qu'il faut mettre Application.ProcessMessages ? (en général)

Merci

**Bleys** · 09/08/2006, 00h34

Je viens de trouver une eptite faille cela dit ... (je sais je cherche la petite bête) qui peut être facilement résolu, mais étant donné que c'est toi qui a fait ce programme, je préfère que tu me dises comment tu le corrigerais.

Le hic c'est que si ej modifie un premier répertoire tout va bien, mais si je modifie les noms d'un second répertoire, sans fermer l'application, la Liste n'étant pas vidée, j'ai un problème de compteur à mon deuxième dossier. A la fin de l'appui sur Action, Si tout s'est bien passé, il faudrait vider la liste ...

Personnellement j'aurais juste modifié ça dans la procedure de clique de Action:

Code :

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

if Success then MessageDlg('Opération terminé !', mtInformation, [mbOk], 0);

en ça :

Code :

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

1
2
3
4
if Success then begin
      MessageDlg('Opération terminé !', mtInformation, [mbOk], 0);
      Liste.Clear;
      end;

**chaours** · 09/08/2006, 15h37

Salut,

Heureux de constater que cela intéresse quelqu'un...

Je vais analyser ça, ça te dérange pas si je te pose quelques questions (pas sur encore)

Fait seulement... Y'a pas de prob...

A chaque fois qu'on crée un GroupBox, dans celui ci, tous les objets sont répertorié ? Une sorte de numéro par objet contenu dans le group ?

Oui, les objets tel que les TGroupBox sont considérés comme des containers et leur contenu est répertorié... On y accède comme montré dans le code...
On peut aussi l'appeller sur le nom mais là il ne faut pas se tromper et connaître les noms des objets...

comment savoir quand est-ce qu'il faut mettre Application.ProcessMessages ?

Si tu tombes sur une boucle qui utilise beaucoup de temps processeur > 5 sec, j'insère un

Code :

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

Application.ProcessMessages

Le hic c'est que si je modifie un premier répertoire tout va bien, mais si je modifie les noms d'un second répertoire, sans fermer l'application, la Liste n'étant pas vidée, j'ai un problème de compteur à mon deuxième dossier. A la fin de l'appui sur Action, Si tout s'est bien passé, il faudrait vider la liste ...

Oui en effet, il y a un p'tit bug... La correction me semble très correcte...

Je suis sûr que l'on pourrait encore l'améliorer grandement mais je n'avais pas trop le temps... C'était juste histoire d'en montrer un peu plus sur les possibilités...

**Laurent Dardenne** · 09/08/2006, 17h33

Pour ce type de modification de nom de fichier le mieux est de l'ajouter dans le menu contextuel de l'explorateur, cf. C:\Program Files\Borland\BDS\4.0\Demos\DelphiWin32\VCLWin32\ActiveX\ShellExt

J'en utilise un depuis qq années pour renommer l'extension de fichier c'est trés pratique, tu peux aussi coller le même traitement dans un prg console.
C'est tout aussi pratique dans les batch.

cf. http://www.developpez.net/forums/sho...xtension+shell