CONSTITUTION RÉCURSIVE DE LISTE DE RÉPERTOIRE
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Membre
Dernière intervention
18 novembre 2010
-
18 oct. 2004 à 22:33
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 10 nov. 2004 à 17:27
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 10 nov. 2004 à 17:27
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/26941-constitution-recursive-de-liste-de-repertoire
https://codes-sources.commentcamarche.net/source/26941-constitution-recursive-de-liste-de-repertoire
10 nov. 2004 à 17:27
Dans le code, j'ajouterai encore une ligne: sltRep.Clear juste après la vérification de l'assignation. Ce serait très bien de vider la liste avant de la remplir, non ?
Sinon sous Delphi 3 et 5, si le but de ce code est uniquement de récupérer les dossiers, alors il ne marche pas puisqu'il capte aussi les fichiers. Dans ce cas, il faut vérifier que chaque résultat est un dossier. Un exemple de cette fonction est disponible au code 27371.
30 oct. 2004 à 08:37
23 oct. 2004 à 14:04
Mais, si l'on respecte un principe de base qui veut que c'est celui qui instancies (ou le propriétaire de l'objet) qui est chargé de la destruction, alors on ne devrait jamais rencontrer le problème.
Le passage d'un objet en paramètre Var est pour moi une anomalie d'écriture puisqu'il est d'office transmis par adresse et jamais par valeur (!...).
22 oct. 2004 à 15:33
19 oct. 2004 à 21:03
19 oct. 2004 à 10:07
En ce qui concerne l'allocation de la TStringList il est vrai qu'on pourrais tester si la TStringList est alloué. Je vais ajouter cela.
18 oct. 2004 à 23:13
J'ai une petite question, pourquoi passer le paramètre sltRep en paramètre var ?
Une TStringList est un objet et tu passes donc une référence. Le mot clé Var est ici inutile.
Personnellement j'ajouterais, après le begin, un contrôle avant d'utiliser la liste de chaines :
if sltRep = nil then exit;
Au cas où...
18 oct. 2004 à 22:33
oui c basique mais le code est propre et va servir (chui sur kil existe aussi peut etre ailleurs ici lol)
pour ceux qui cherchent le meme genre de composant mais avec des options (rechch par taille, date, extentions etc) il existe les composants JEDI vcl (pack de compo libres)
et moi meme ai fait un ptit compo ki est de niveau entre cette fonction et les JEDI : TdbpFindFiles (voir mes sources)
voila :)