Discussion :

[the_magik_mushroom]

Bonjour a tous,

je voudrais synchroniser des TStringList depuis mon ListBox1.

j'ai 5 TStringList : List1, List2, List3, List5, List5.

Ces TStringList font la meme taille que le ListBox1 (List1.count = ListBox1.count)
(je m'en sert pour recupe des infos, par exe si je clique sur la ligne 29 du Listbox, je vais chercher les infos list1.Strings[29], list2.Strings[29], list3.Strings[29], list4.Strings[29], list5.Strings[29].


Ce que je voudrais, c'est que quand je supprime plusieurs lignes dans mon Listbox1 avec Listbox1.DeleteSelected;
ces lignes soient supprimer aussi dans mes 5 TStringList,
par exemple si je supprime les lignes 2,5,30,129 dans mon ListBox1, je voudrais supprimer ces meme lignes (2,5,30,129) dans mes 5 TStringList.

comment faire ca proprement et le plus rapidement possible ?

for x := 0 to Listbox1.Count-1 do begin
if Listbox1.Selected[x] then begin
...
end;
end;

[rsc]

Sur le principe, à mon avis, ne cherche pas autre chose, c'est ce que fait DeleteSelected ; ici tu vas simplement le faire simultanément sur tes 5 listes.
Par contre, sur le plan pratique, tu commets l'erreur classique : les bornes de ta boucle for sont déterminées une fois pour toutes, à l'entrée dans la boucle. Or effacer (ou insérer) une ligne modifie le nombre de lignes et l'index de tous les enregistrements supérieurs. Il faut donc toujours le faire en boucle décroissante :

Code :

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

for i := MyList .Count - 1 downto 0 do

ce qui :
1/ évite les erreurs de numéros de ligne (pas dans ce cas précis, mais d'une manière générale)
2/ évite les débordements d'index.

[the_magik_mushroom]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
for x := Listbox1.Count - 1 downto 0 do begin
if Listbox1.Selected[x] then begin
Listbox1.Items.Delete(x);
list1.Delete(x);
list2.Delete(x);
list3.Delete(x);
list4.Delete(x);
list5.Delete(x);
end;
end;

Super ca marche parfait!!!!

merci!

[ShaiLeTroll]

Et pourquoi ne pas Exploiter ListBox.Items.Objects[i] pour stocker un object ou un record contenant l'équivalent des 5 TStringList ?

Et si la libération des Objets est un calvaire, une TObjectList en plus peut servir de Garbage Collector ...