Dédoublonner une liste ?

**MaTHieU_** · 10/08/2006, 14h08

Bonjour,

Je cherche une méthode pour dédoublonner une liste, avez-vous déjà fait ce genre de chose ?

Faut-il trier la liste par ordre alphabetique puis traiter les lignes une par une pour en supprimer les doublons ?

Existe-t-il une méthode plus optimisée ?

Merci,
Mathieu

**edam** · 10/08/2006, 14h23

comment charge tu ta liste?

**MaTHieU_** · 10/08/2006, 14h32

Bonjour,

"Liste.txt" chargée dans une TListBox via LoadFromFile.

Merci,
Mathieu

**Rayek** · 10/08/2006, 14h43

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
 
procedure Dedoublonnage(var lst : TStringList);
var
  iEncours : Integer;
begin
  // on commence au dernier element de ta liste
  iEncours := lst.count -1;
  while iEncours >= 0 do
  begin
    while lst.indexof(lst.Strings[iEncours]) <> iEncours do
    begin
      lst.delete(lst.indexof(lst.strings[iEnCours]);
      // décale de 1 vu qu'on a supprimer un element avant
      dec(iEnCours); 
    end;
    // on passe a l'item précédent
    dec(iEnCours);  
  end;
end;

A tester

Code :

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

1
2
 
Dedoublonnage(TaListBox.Items);

**MaTHieU_** · 10/08/2006, 15h17

Bonjour,

J'ai commencé à travaillé sur une TListBox, j'ai joué avec le Sorted mais c'est pas gagné

Je vais tester ton code

Merci,
Mathieu

**MaTHieU_** · 10/08/2006, 15h27

Bonjour,

Ca marche parfaitement et c'est très rapide merci !

Code à mettre dans la FAQ !

Merci,
Mathieu

**Rayek** · 10/08/2006, 15h48

Je pense pas que ce code soit vraiement utile pour être mis dans la FAQ, en réflechissant un peu et en connaissant les méthodes d'une ListBox (ou TStringList) on fait ca en moins de 5mn

**MaTHieU_** · 10/08/2006, 16h13

Bonjour,

Oui, mais c'est pratique

Petite question, pourquoi as-tu parcouru ta liste en sens inverse (dec) ?

Merci,
Mathieu

**Rayek** · 10/08/2006, 16h21

Car IndexOf Recherche depuis le debut de la liste, donc si je veux pouvoir trouver les tous doublons des la première fois il faut que je parte de la fin sinon je ne trouverai le ou les doublons que plus tard.

**MaTHieU_** · 10/08/2006, 16h30

OK

Mathieu

**edam** · 18/08/2006, 16h58

un autre code simplement

(avec sorted a true)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Dedoublonnage(var lst : TStringList);
var
  i : Integer;
begin
  i:=0;
  while i<lst.count-1 do
  begin
      if lst.item[i]=lst.item[i+1] then lst.delete(i)
     else inc(i);
  end;
end;

**tourlourou** · 18/08/2006, 17h48

il me semble que les TStringList avec la propriété Sorted à True ont une propriété Duplicates qui élimine les doublons quand elle est fixée à DupIgnore => aucun travail à faire...

**MaTHieU_** · 21/08/2006, 17h17

Bonjour,

Merci pour vos informations, je vais regarder de ce côté la prochaine fois !

Mathieu

Dédoublonner une liste ?

Delphi

Discussions similaires

Partager

Partager