multiselect dans filelistbox pb

Question

bonjour !

j'ai parcouru tout le site pour trouver une soluce mais pas moyen !!
jai une filelistbox  (file1) avec multiselect sur true. je n'arrive pas a recuperer le nom de tou les fichiers selectionnés !! seul le dernier selectionné remonte !!

for i =1 to file1.listcount-1

    if file1.selected(i) then

      toto=file1.filename      'remonte tjrs le dernier selectionné ! grr
      lancer une autre macro sur toto pr changer le nom du fichier
    
    end if

next i

jcomprend pas ou est le probleme :-(
merci pr votre aide ...
poum :-)

japee · Answer

Tu es sûr que c'est du Delphi, ton code ?

"FileListBox.ListCount", connais pas...
Attention à la différence entre "=" et ":="...

Quoi qu'il en soit, essaye ceci :

for i := 0 to (File1.Items.Count - 1) do
  begin
    if File1.Selected[i] then
      // traitement...
  end;


Bonne prog'   :-p

japee · Answer

En me relisant, je constate que mon code ne répondait pas complètement à ta question.

for i := 0 to File1.Items.Count - 1 do
  begin
    if File1.Selected[i] then 
      with FileBox1.FileName do
      // traitement ici du fichier récupéré
  end;


Bonne prog'   :-p

yvemoreau · Answer

JEDI-VCL Components for delphi
palette Jv system
composant jvFileListBox

suppose que l'on envoi les éléments sélectionner dans un mémo

var
x:Integer;
begin
   memo1.Clear;
  for x:= 0 to JVFileListBox1.Items.Count-1 do
  if(JVFileListBox1.Selected[x]=true)then
   memo1.Lines.Add(JVFileListBox1.Items.Strings[x]);
end;

c'est vraiment pas évident pour ceux qui n'ont pas ce composant !
 :) 

yve

japee · Answer

Mais pourquoi donc utiliser ce composant, yve ???

Un FileListBox me parait tout à fait suffisant pous arriver au même résultat, non ?

Multiselect dans filelistbox pb

4 réponses

Votre réponse

Discussions similaires