cs_nuns88
Messages postés mardi 7 janvier 2003Date d'inscription
23 juillet 2009
Dernière intervention
-
29 oct. 2004 à 16:21 - Dernière réponse : BlouMan95
Messages postés mardi 15 mars 2005Date d'inscription
2 juillet 2007
Dernière intervention
- 15 mars 2005 à 13:33
je voudrais juste savoir comment je pourrais savoir tout les fichiers *.txt que j'ai dans un dossier es que j'utilise le ShellTreeView et afficher dans un CheckListBoxFichier
s' il y a un quelqu un qui arrive just a me dire comment j'arrive a prandre les nom des fichier que j'ai dans un dossier que je sectionne avec ShellTreeView, pour que je puisse afficher le nom du fichier dans un CheckListBoxFichier
japee1792
Messages postés vendredi 27 décembre 2002Date d'inscription
12 novembre 2016
Dernière intervention - 2 nov. 2004 à 13:05
+3
Utile
JulioDelphi, es-tu sûr que ton code fonctionne tel qu'il est ?
Chez moi, sous D6, 2 problèmes :
- problème mineur : il me semble qu'il vaut mieux passer par UpperCase ou LowerCase afin d'autoriser la saisie "txt" ou "TXT". En plus, je crois que la fonction ExtractFileExt() ne retourne l'extension qu'en majuscule, et de toute manière l'extension des fichiers recherchés peut être en minuscules ou en majuscules...
- problème majeur : toujours la fonction ExtractFileExt(), il semble, après vérification, qu'elle retourne l'extension sur 5 caractères ! Bizarre autant qu'étrange, non ? D'où l'impossibilité de comparer avec "="...
Donc, voici une légère modification à apporter au code, et là ça fonctionne nickel :
remplacer :
if ExtractFileExt(stv.Items.Item[i].Text)=format('.%s',[edit1.text]) then
par :
if Pos(UpperCase(Format('.%s',[Edit1.Text])), UpperCase(ExtractFileExt(stv.Items.Item[i].Text))) <> 0 then
Tu vois ce que je veux dire, JulioDelphi, toi qui comprends vite (contrairement à d'autres)... >:)
Qu'en penses-tu ?
...
Alors, nuns, ça va fonctionner comme ça ?
Sinon j'ai une solution alternative, en passant par un TSearchRec, mais ça devrait être moins optimisé, je pense, puisque le TShellTreeView a déjà fait le travail. Encore que... ça reste à voir.
Bonne prog' :-p
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
voici ma solution pour mettre les .txt dans une listbox :
var
i: integer;
begin
for i:=0 to stv.Items.Count-1 do
begin
if ExtractFileExt(stv.Items.Item[i].Text)='.txt' then lb.Items.Add(stv.Items.item[i].text);
end;
end;
ma ShellTreeVies s'apelle STV et ma listbox s"apelle LB
voila, g testé et ça marche a+
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! ;)
-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !
cs_nuns88
Messages postés mardi 7 janvier 2003Date d'inscription
23 juillet 2009
Dernière intervention -31 oct. 2004 à 22:47
0
Utile
sa ne m'affiche pas les fichier txt, pour tant je fait la meme chose que toi,
var
i: integer;
begin
for i:=0 to ShellTreeView.Items.Count-1 do
begin
if (ExtractFileExt(ShellTreeView.Items.Item[i].Text)='.txt')
then CheckListBoxFichier.Items.Add(ShellTreeView.Items.item[i].text);
end;
Yes c super cette correction, je n'aurait pas pensé que la casse était importante ici. merci
Et 5 carac. pour l'extention ! c koi le delire :| ce qui est effectivement bizarre c'est que ça roule sur mon delphi7 sous xp pro :/
"Reponse acceptée" Japee :shy)
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! ;)
-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !
japee1792
Messages postés vendredi 27 décembre 2002Date d'inscription
12 novembre 2016
Dernière intervention - 2 nov. 2004 à 14:52
0
Utile
Eh oui, JulioDelphi...
Comme quoi, d'une version de Delphi à l'autre, une fonction ne se comporte pas tout à fait de la même manière, on dirait...
J'avais constaté ce problème avec l'utilisation d'un Thread, mon code fonctionnait différemment selon qu'il était compilé sous D4 ou D6... en fait, il plantait sous D6... :big)
Bref, pour bien faire, il faudrait tester son code sous toutes les versions... %-6
Bonne prog', nuns, tiens-nous au courant (au fait, c'est quoi ta version de Delphi, ça pourrait expliquer...) ?
