UN UTILITAIRE QUI PERMET D'ÉNUMÉRER LES FICHIERS D'UN RÉPERTOIRE AVEC DES CARACT
dubois77
Messages postés675Date d'inscriptionjeudi 17 avril 2008StatutMembreDernière intervention19 février 2019
-
11 juin 2013 à 08:00
denisbertin -
15 juin 2013 à 22:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Le String liste est une proposition de tes proposition pourtant et permet d'affecter directement son contenu à un Mémo.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 15 juin 2013 à 03:11
ps:
ton TStringList "une_liste" ne sert à rien en l'état
et il n'est jamais libéré ... ce qui implique des fuites de mémoire
et avant de faire une modification sur le code
télécharge ce Zip et fais la modif sur cette version
ça t'évitera de répéter les mêmes conneries.
et c'est pas la peine de mettre un seul fichier de plus dans l'archive
que ce qu'il y a en ce moment.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 15 juin 2013 à 03:02
c'est la 4ème et dernière fois que je fais le ménage dans ton zip.
la prochaine fois je considère que c'est du foutage de gueule et je supprime !!
sur 28 fichiers présents 18 SONT INUTILES.
ensuite je t'ai donné des informations sur ton usine à gaz et sur l'utilisation de WinExec.
ça non plus tu n'en as pas tenu compte
j'ai rendu ton code compatible avec D2009 et +
et je constate qu'après la mise à jour tout a disparu.
et pour finir ce code est très loin mais très très loin d'un code de niveau expert.
et je te l'avais déjà dit ... tu codes comme il y a 20ans de ça
ce n'est pas un bon exemple pour les débutants d'aujourd'hui bien au contraire.
C'est ton choix de coder ainsi soit mais ce code ne peut prétendre être de niveau Expert
se serait offenser les membres.
c'est donc la dernière fois que je te fais ces remarques
(oui je me répète mais il semblerait que ce soit utile)
à la prochaine je considère que tu te fous de moi et de la communauté
et donc je ne ferai pas l'effort de corriger ton code, d'épurer ton zip
et mettre à jour sur le site.
Merci mais effectivement j'ai bien trouvé comment faire, je te remercie Cirec,
la version 3 doit être en ligne de plus elle est aussi sur le site que j'ai constitué.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 12 juin 2013 à 14:42
ben juste en dessous de "Information sur la source"
il y a un lien qui est là que pour toi : "Modifier ce code"
Merci cirec pour les commentaires, comment faire une mise à jour d'un code plublié afin de poursuivre ce développement ?
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 12 juin 2013 à 13:37
@DenisBertin:
quand on modifie un code on ne fait pas un nouveau dépôt mais une mise à jour !!!
ensuite on prend soin de virer tous les fichiers inutiles de l'archive. (j'ai fait le ménage)
Pour le code:
WinExec ne doit plus être utilisée depuis Delphi2, cette fonction n'est présente que
pour assurer la compatibilité avec les Windows 16-bit
(voir en commentaire, dans le code, ce que dit l'aide de Delphi à ce sujet)
Sinon ... on a enfin un code que l'on peut compiler et tester. (Merci pour ça)
le reste du code pourrait également être optimisé ...
pourquoi ne pas avoir mis la sortie dans un TStrings ?
ça permet l'utilisation directe du résultat pour d'autres opérations
et ça n'empêche la sauvegarde.
le code ne devrait pas se retrouver dans un évènement OnClick
il devrait se trouver dans une procédure/fonction réutilisable directement !!!
pour toutes ces raisons (et d'autres encore) j'ai passé le code en Niveau Débutant.
sp40
Messages postés1276Date d'inscriptionmardi 28 octobre 2003StatutContributeurDernière intervention 3 juillet 201515 11 juin 2013 à 14:33
Dans button1Click :
J'ajouterais
SaveDialog1.DefaultExt := '.txt'; ou SaveDialog1.DefaultExt := '.html' en fonction du type de sortie choisi.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 11 juin 2013 à 13:39
Effectivement il y a du progrès ...
mais le code reste inutilisable pour la majorité
des membres.
sinon j'ai expurgé l'archive de tous ses fichiers inutiles.
J'ai laissé "Utile.dcu" pour l'instant le temps pour toi faire la mise à jour !!!
sp40
Messages postés1276Date d'inscriptionmardi 28 octobre 2003StatutContributeurDernière intervention 3 juillet 201515 11 juin 2013 à 09:34
En revanche, petit progrès : on a maintenant une démo (pas compilable, mais bon, on en a une...)
sp40
Messages postés1276Date d'inscriptionmardi 28 octobre 2003StatutContributeurDernière intervention 3 juillet 201515 11 juin 2013 à 09:33
compile pas...
Perso, j'utilise BuildFileList dans jclFileUtils...
Quelques commentaires sans intérêts (sans parler de la signification...) :
//Une Création originale de denis bertin améliorée par denis bertin son concepteur.
//Qui selon la perception de denis bertin est aussi une visiblité internautesque avec la bonne formulation Html.
{une unité écrite par denis bertin stéphane}
{Ecrit par denis bertin en 1992 et non pas par régis ni nicolas}
dubois77
Messages postés675Date d'inscriptionjeudi 17 avril 2008StatutMembreDernière intervention19 février 201914 11 juin 2013 à 08:00
Manque source de utile.dcu
on ne peut pas sélectionner un autre disque que C
à quoi sert Project_enum.dsm de 4,6 Mega ?
(je l'ai suypprimer et ça compile quand même !
15 juin 2013 à 22:03
15 juin 2013 à 03:11
ton TStringList "une_liste" ne sert à rien en l'état
et il n'est jamais libéré ... ce qui implique des fuites de mémoire
et avant de faire une modification sur le code
télécharge ce Zip et fais la modif sur cette version
ça t'évitera de répéter les mêmes conneries.
et c'est pas la peine de mettre un seul fichier de plus dans l'archive
que ce qu'il y a en ce moment.
15 juin 2013 à 03:02
la prochaine fois je considère que c'est du foutage de gueule et je supprime !!
sur 28 fichiers présents 18 SONT INUTILES.
ensuite je t'ai donné des informations sur ton usine à gaz et sur l'utilisation de WinExec.
ça non plus tu n'en as pas tenu compte
j'ai rendu ton code compatible avec D2009 et +
et je constate qu'après la mise à jour tout a disparu.
et pour finir ce code est très loin mais très très loin d'un code de niveau expert.
et je te l'avais déjà dit ... tu codes comme il y a 20ans de ça
ce n'est pas un bon exemple pour les débutants d'aujourd'hui bien au contraire.
C'est ton choix de coder ainsi soit mais ce code ne peut prétendre être de niveau Expert
se serait offenser les membres.
c'est donc la dernière fois que je te fais ces remarques
(oui je me répète mais il semblerait que ce soit utile)
à la prochaine je considère que tu te fous de moi et de la communauté
et donc je ne ferai pas l'effort de corriger ton code, d'épurer ton zip
et mettre à jour sur le site.
il y aura suppression pure et simple.
A.B.E.
Salut.
14 juin 2013 à 20:32
la version 3 doit être en ligne de plus elle est aussi sur le site que j'ai constitué.
12 juin 2013 à 14:42
il y a un lien qui est là que pour toi : "Modifier ce code"
tu cliques dessus et tu suis les instructions ;)
si tu as des soucis n'hésites pas ;)
12 juin 2013 à 14:26
12 juin 2013 à 13:37
quand on modifie un code on ne fait pas un nouveau dépôt mais une mise à jour !!!
ensuite on prend soin de virer tous les fichiers inutiles de l'archive. (j'ai fait le ménage)
Pour le code:
WinExec ne doit plus être utilisée depuis Delphi2, cette fonction n'est présente que
pour assurer la compatibilité avec les Windows 16-bit
(voir en commentaire, dans le code, ce que dit l'aide de Delphi à ce sujet)
Sinon ... on a enfin un code que l'on peut compiler et tester. (Merci pour ça)
ta fonction qui permet de retrouver un programme associé à une extension
est une vraie usine à gaz .... on pouvait aussi faire comme ceci:
http://www.codyx.org/snippet_recuperer-chemin-programme-associe-fichier-apres-son-extension_544.aspx#1984
le reste du code pourrait également être optimisé ...
pourquoi ne pas avoir mis la sortie dans un TStrings ?
ça permet l'utilisation directe du résultat pour d'autres opérations
et ça n'empêche la sauvegarde.
le code ne devrait pas se retrouver dans un évènement OnClick
il devrait se trouver dans une procédure/fonction réutilisable directement !!!
pour toutes ces raisons (et d'autres encore) j'ai passé le code en Niveau Débutant.
11 juin 2013 à 14:33
J'ajouterais
SaveDialog1.DefaultExt := '.txt'; ou SaveDialog1.DefaultExt := '.html' en fonction du type de sortie choisi.
11 juin 2013 à 13:39
mais le code reste inutilisable pour la majorité
des membres.
sinon j'ai expurgé l'archive de tous ses fichiers inutiles.
J'ai laissé "Utile.dcu" pour l'instant le temps pour toi faire la mise à jour !!!
11 juin 2013 à 09:34
11 juin 2013 à 09:33
Perso, j'utilise BuildFileList dans jclFileUtils...
Quelques commentaires sans intérêts (sans parler de la signification...) :
//Une Création originale de denis bertin améliorée par denis bertin son concepteur.
//Qui selon la perception de denis bertin est aussi une visiblité internautesque avec la bonne formulation Html.
{une unité écrite par denis bertin stéphane}
{Ecrit par denis bertin en 1992 et non pas par régis ni nicolas}
11 juin 2013 à 08:00
on ne peut pas sélectionner un autre disque que C
à quoi sert Project_enum.dsm de 4,6 Mega ?
(je l'ai suypprimer et ça compile quand même !