Discussion :

[berpi]

Bonjour à tous,

j'ai 4 ListBox : List1, List2, List3 et List4.
(en anglais c'est 4 ListBoxes, mais bon...)

par exemple

List1 contient :
S123
S258
S444
S879

List1 contient :
S123
S258
S666
S879

comment sélectionner les items pour que

List3 contienne : (passe 1)
S123
S258
S879 soit les items communs à List1 et List2

et que

List4 contienne : (passe 2)
S666
S444 soit les items 'non' communs à List1 et List2

pour la passe 1, je compare le premier de L1 avec chacun de L2
si égalité -> envoi dans L3, puis pareil pour le deuxième de L1, etc..
(ceci est fait par un 'repeat' 'until' sur L1)
Bon, ça sa fonctionne !!!

pour la passe 2 (soit détecter les différences),
je me fais un 'sac de noeuds' dans les boucles de comparaison
L4 contient à la fin un 'wagon' d'Items,
et n'arrive pas au résultat escompté !

ça doit pourtant être simple mais je dois être mal réveillé...

A vous lire...

Pierre

[sjrd]

Ton exemple laisse supposer que les chaînes sont triées dans les list box 1 et 2. Est-ce toujours le cas. Si oui, voici une solution efficace. Si non, le mieux c'est de les trier d'abord , quitte à ce que ce soit dans une TStringList interne si tu ne dois pas modifier les listes originales.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure SimilairesEtPasSimilaires(
  List1, List2, Similaires, NonSimilaires: TStrings);
var
  I, J: Integer;
begin
  I := 0;
  J := 0;
 
  while (I < List1.Count) and (J < List2.Count) do
  begin
    if List1[i] < List2[J] then
    begin
      NonSimilaires.Add(List1[i]);
      Inc(I);
    end else
    if List1[i] > List2[J] then
    begin
      NonSimilaires.Add(List2[J]);
      Inc(J);
     end else
    begin
      Similaires.Add(List1[i]);
      Inc(I);
      Inc(J);
    end;
  end;
 
  NonSimilaires.AddStrings(List1);
  NonSimilaires.AddStrings(List2);
end;

[berpi]

Bonsoir sjrd,

j'ai adapté ta méthode à ma préoccupation et ça fonctionne !

par contre, je n'ai pas compris la présence des deux lignes
de code juste avant le 'end;' final...

Merci quand même

Pierre

[sjrd]

par contre, je n'ai pas compris la présence des deux lignes
de code juste avant le 'end;' final...

Etant donné que la boucle continue tant que l'index à gauche est valide et que l'index à droite est valide. Il arrive fatalement un moment ou l'un des deux ne l'est plus, mais l'autre peut encore l'être.
Alors, cela veut dire qu'on est arrivé au bout d'une liste, et pas au bout de l'autre : tous les éléments qui restent dans cette autre n'appartiennent pas à la première, et sont donc non-similaires.
Seul un des deux AddStrings fera effectivement quelque chose, puisque l'autre opèrera sur une liste vide, mais ça n'a pas d'importance.