Discussion :

[pierrot67]

Bonjour à tous

Je cherche comment faire pour supprimer les doublons dans une combobox
j'ai trouvé ce script

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
procedure SupprimerDoublons(Strings : TStrings; CaseSensitive : boolean = True);
var SL : THashedStringList;
begin
  SL := THashedStringList.Create;
  try
    SL.Duplicates := dupIgnore;
    SL.CaseSensitive := CaseSensitive;
    SL.Sorted := True; // Sinon Duplicates ne fait rien !
 
    SL.Capacity := Strings.Capacity;// Allocation du tableau une fois pour toutes
    SL.AddStrings(Strings);
 
    Strings.BeginUpdate();
    try
      Strings.Clear();
      Strings.Capacity := SL.Capacity;// Allocation du tableau
      Strings.AddStrings(SL);
    finally
      Strings.EndUpdate();
    end;
    SL.Free;
  end;
end;

mais je ne sais pas comment l'appliquer
A savoir que je rempli ma combobox par une boucle dans l'afterpost .
si quelqu'un à une autre solution à me proposer ou m'expliquer un peu comment et ou appliquer cette procédure.

Merci d'avance.

[Cl@udius]

Salut

Comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  with ComboBox1, Items do
  begin
    Clear;
    Add('Item3');
    Add('Item1');
    Add('Item2');
    Add('Item2');
    Add('Item3');
    Add('Item1');
    SupprimerDoublons(Items, True);
  end;

@+

[pierrot67]

Merci mais...

VOICI MA BOUCLE

Code :

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

1
2
3
4
5
6
7
8
datamodule2.AnnFour.First;
Form1.ComboBox4.Clear;
repeat
form1.ComboBox4.Items.add(AnnfourNom.value);
Form1.ComboBox4.Items.SaveToFile('C:\Program Files\Gestlab/AnnFour');
Annfour.Next;
until
Annfour.Eof;

Mais ou dois-je mettre le code que j'ai trouvé c'est là ou je me pose le problème.

[Cl@udius]

Juste après le until.

Code :

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

1
2
3
    //...
  until Annfour.Eof;
  SupprimerDoublons(form1.ComboBox4.Items);

@+

[pierrot67]

je suis d'accord mais

cette procedure elle va ou ????

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
procedure SupprimerDoublons(Strings : TStrings; CaseSensitive : boolean = True);
var SL : THashedStringList;
begin
  SL := THashedStringList.Create;
  try
    SL.Duplicates := dupIgnore;
    SL.CaseSensitive := CaseSensitive;
    SL.Sorted := True; // Sinon Duplicates ne fait rien !
 
    SL.Capacity := Strings.Capacity;// Allocation du tableau une fois pour toutes
    SL.AddStrings(Strings);
 
    Strings.BeginUpdate();
    try
      Strings.Clear();
      Strings.Capacity := SL.Capacity;// Allocation du tableau
      Strings.AddStrings(SL);
    finally
      Strings.EndUpdate();
    end;
    SL.Free;
  end;
end;

[Cl@udius]

Ben le plus simple est de la mettre dans la même unité que celle où se fait l'appel.

Tu la places tout au début de la section implementation, pour qu'elle soit visible lors de l'appel.

[BuzzLeclaire]

Bonjour pierrot67,

Si ta Boucle est celle-ci :

Code :

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

1
2
3
4
5
6
7
8
datamodule2.AnnFour.First;
Form1.ComboBox4.Clear;
repeat
form1.ComboBox4.Items.add(AnnfourNom.value);
Form1.ComboBox4.Items.SaveToFile('C:\Program Files\Gestlab/AnnFour');
Annfour.Next;
until
Annfour.Eof;

Pourquoi tu passe par un combobox ? si c'est pour la Clear dés ton premier passage...
Tu peux essayer comme cela :

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
Procedure maProcedure;
Var
  FourNom: Tstringlist;
Begin
  FourNom := TStringList.Create;
  Try
    FourNom.Duplicates := dupIgnore;
    FourNom.Sorted := True;    
    With DataModule2.AnnFour do
    Begin
     First;
     While Not Eof do
     begin
       FourNom.Add(AnnfourNom.value);
       next;
     end;
    end;
    FourNom.SaveToFile('C:\Program Files\Gestlab/AnnFour');
  Finally
    FourNom.Free;
  end;
end;

Ce qui me chagrine c'est le AnnfourNom.value qui devrait plutot etre un FieldByName('AnnfourNom').Value en aillant AnnfourNom comme champ.

Voir si besoin de Try...Finally dans le With DataModule.AnnFour, il manque apriori de open et close

[Andnotor]

Pourquoi ne pas remplir ce combo depuis une requête dédiée

Code sql :

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

select MonChamp from MaTable group by MonChamp

Ensuite sauver un fichier avec ce nom C:\Program Files\Gestlab/AnnFour, ben c'est pas possible . Le slash est un caractère illégal !