Discussion :

[Pharmacos]

Bonjour,

Suite à une préselection, je cherche dans une listbox de 800 items, tous les items ayants 20 caractéristiques.

Je fais donc une double boucle "for":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
for x:= 0 to listbox1.count-1 do
begin
 
   for y := 0 to listbox2.count-1 do
   begin
 
   if donnée.item[y] = donnée.item[x] then .......
 
   end;
 
end;

Le soucis est que le temps de traitement est de 2 secondes !
Ce que je trouve extrêmement long

Y a t il une possibilité pour alléger mon code ou raccourcir le temps de traitement ?

Merci

[Rayek]

1er chose, si tes données sont triées ca ira largement plus vite.

Et pour optimiser le code faire plutôt comme cela

Code :

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

1
2
3
4
 
 for y := 0 to listbox2.count-1 do
   if ListBox1.Items.IndexOf(listbox2.Items.Strings[i]) <> -1 then
     // ...

[Pharmacos]

Merci pour l'optimisation du code
Mes données sont triées, donc je n'ai plus qu'à attendre mes 2 secondes