Discussion :

[mohamed]

Bonjour,
J'essaie de supprimer les doublons d'une listview en essayant de m'insipirer du code à l'adresse: ici
Je n'y arrive pas.En fait je concatène tous mes élmnts d'une ligne de ma listview.Mais j'ai l'impression qu'il ne me supprime pas ce que je veux.
Quelqu'un peut-il m'aider ou a-t-il un bout de code.

Ci-dessous mon code :

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
procedure TForm1.SuppDoublonsListView1;
var i,iEncours:integer;
    str : String;
    strlist:TStringList;f : TextFile;
begin
    i := 0;
    strlist := TStringList.Create;//Assignfile(f,'C:\titi.txt');Rewrite(f);
    while i <= ListView1.Items.Count -1 do
    begin
      str := uppernoaccent(ListView1.Items.Item[i].Caption+ListView1.Items.Item[i].SubItems.Strings[0]+ListView1.Items.Item[i].SubItems.Strings[1]+ListView1.Items.Item[i].SubItems.Strings[2]+ListView1.Items.Item[i].SubItems.Strings[3]+ListView1.Items.Item[i].SubItems.Strings[4]);
      strlist.Add(str);
      //write(f,inttostr(i)+' '+str+#13);
      i := i+1;
    end;
    iEncours := strlist.Count -1;
    while iEncours >= 0 do
    begin
      while strlist.IndexOf(strlist.Strings[iEncours]) <> iEncours do
      begin
          ListView1.Items.Delete(strlist.IndexOf(strlist.Strings[iEncours]));
          dec(iEncours);
      end;
      dec(iEncours);
    end;
    strlist.Free;//CloseFile(f);
end;

[LoveBuzz]

Bonjour,

Essaie plutôt 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
23
24
25
26
27
28
procedure TForm1.SuppDoublonsListView1;
var i,iEncours,iEncoursSearch:integer;
    str : String;
    strlist:TStringList;f : TextFile;
begin
    i := 0;
    strlist := TStringList.Create;//Assignfile(f,'C:\titi.txt');Rewrite(f);
    while i <= ListView1.Items.Count -1 do
    begin
      str := uppernoaccent(ListView1.Items.Item[i].Caption+ListView1.Items.Item[i].SubItems.Strings[0]+ListView1.Items.Item[i].SubItems.Strings[1]+ListView1.Items.Item[i].SubItems.Strings[2]+ListView1.Items.Item[i].SubItems.Strings[3]+ListView1.Items.Item[i].SubItems.Strings[4]);
      strlist.Add(str);
      //write(f,inttostr(i)+' '+str+#13);
      i := i+1;
    end;
    iEncoursSearch := strlist.Count -1;
    while iEncoursSearch >= 0 do
    begin
      iEncours := iEncoursSearch;
      while iEncours >=0 do
      begin
        if strlist.Strings[iEncours]=strlist.Strings[iEncoursSearch] then
          ListView1.Items.Delete(iEncours);
        dec(iEncours);
      end;
      dec(iEncoursSearch);
    end;
    strlist.Free;//CloseFile(f);
end;

A+

[mohamed]

Merci LoveBuzz.

Cependant ca me crée une erreur EAccessViolation une fois que j'arrive à la fin.
Pense tu savoir ce qui peut etre la cause.
Merci.

[Pedro]

Salut
Je pense qu'il y a un problème ici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    while iEncoursSearch >= 0 do
    begin
      iEncours := iEncoursSearch - 1;//Ici il faut ajouter -1
      while iEncours >=0 do
      begin
        if strlist.Strings[iEncours]=strlist.Strings[iEncoursSearch] then
          ListView1.Items.Delete(iEncours);
        dec(iEncours);
      end;
      dec(iEncoursSearch);
    end;

Si tu laisses

Code :

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

1
2
 
iEncours := iEncoursSearch;

le if suivant sera toujours vrai... Donc il effacera systématiquement la première entrée.

[mohamed]

Malheureusement ca ne marche toujours pas.

[Pedro]

Malheureusement ca ne marche toujours pas.

Pourrais-tu être moins précis stp?