Comparer contenu de 2 ListBox

Version imprimable

17/02/2009, 11h09
sondo

Comparer contenu de 2 ListBox
Bonjour,

Je veux comparer le contenue de deux listbox. Si une ligne de la ListBox1 = ListBox2, la ligne de la LitsBox1 est supprimé. J'ai fais ceci mais il n' ya qu'une seule ligne de la ListBox1 qui est supprimé :
Code:

1 2 3 4 5 6 for i := 0 to ListBox1.Items.Count - 1 do begin if ListBox1.Items.IndexOf(ListBox2.Items[I]) > -1 then ListBox1.Items.Delete(i); end;
Merci de m'aider à comprendre.
17/02/2009, 11h36
sat83

Si tu souhaite effectuer une boucle sur ListBox1.Count tout en modifiant le nombre d'enregistrement, part plutot de la fin en revenant vers 0.
17/02/2009, 12h02
sondo

Salut sat83,

Je ne comprend pas trop ce que que tu veux dire. Peux-tu faire un exemple avec mon code?. Merci.

Code:

1
2
3
4
5
  for i := ListBox1.Items.Count - 1 downto 0  do
  begin
       if ListBox1.Items.IndexOf(ListBox2.Items[i]) > -1 then
       ListBox1.Items.Delete(i);
  end;

J'ai fais comme tu as dit :

Code:

1
2
3
4
5
6
 
for i := ListBox1.Items.Count -1 downto 0 do
                   begin
                     if ListBox1.Items.IndexOf(ListBox2.Items[I]) > -1 then
                     ListBox1.Items.Delete(i);
                   end;

mais il il y' a une exception EStringListError : indice de liste hors limite(10).

17/02/2009, 16h32
Charly910

Bonjour,

c'est surement parce que Listbox2 a moins d'éléments que ListeBox1 ?

Charly

Je pense qu'il faut que tu fasses :

Code:

1
2
3
4
5
6
7
8
9
 
  for i := ListBox2.Items.Count - 1 downto 0  do
  begin
      j := ListBox1.Items.IndexOf(ListBox2.Items[i]) ;
      if j > -1 then
       begin
          ListBox1.Items.Delete(j);
       end;
  end;

Charly

17/02/2009, 17h03
sondo

Salut Charly910,

J'ai fais comme tu as dis, mais il n' ya que 2 lignes de la ListBox1 qui sont supprimées. Les autres ligne ne sont pas supprimées.
17/02/2009, 17h20
Charly910

Je ne comprend pas, j'ai fais un essai - ça marche chez moi

est tu sûr que les autres lignes sont strictement identiques ?

Je suis certains que tous les lignes sont identiques. Je vous donne tous mon code, peut-être que le problème se trouver ailleurs.

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
procedure TForm45.Edit1KeyPress(Sender: TObject; var Key: Char);
var i, j : integer;
begin
  if (key = #13) then
     begin
       if Edit1.Text = '' then
          begin
            MessageDlg('Saisir un code opérateur', mtWarning, [mbOK],0);
            Edit1.SetFocus;
            key := #0;
          end
       Else
         begin
           Query_User.sql.Clear;
           Query_User.Sql.Add('Select nom as nom, prenom as prenom from utilisateur');
           Query_User.Sql.Add('Where username = ' + QuotedStr(Edit1.text));
           Query_User.Open;
           if Query_User.IsEmpty = true then
              begin
                MessageDlg('Code opérateur non valide', mtError, [mbOK],0);
                Edit1.SetFocus;
                Key := #0;
              end
           Else
             begin
               //Recherche des role du user
               Query_Role.sql.Clear;
               Query_Role.Sql.Add('Select granted_role as role from dba_role_privs');
               Query_Role.Sql.Add('Where grantee = ' + QuotedStr(Edit1.text));
               Query_Role.Open;
               While not Query_role.Eof do
                     begin
                       ListBox2.Items.Add(Query_Role.FieldByName('role').AsString);
                       Query_Role.Next;
                     end;
               for i := ListBox2.Items.Count - 1 downto 0  do
                   begin
                     j := ListBox1.Items.IndexOf(ListBox2.Items[i]) ;
                       if j > -1 then
                          ListBox1.Items.Delete(j);
                   end;
               Edit2.Text := Query_User.fieldbyname('nom').AsString;
               Edit3.Text := Query_User.fieldbyname('prenom').AsString;
               Edit1.Color := clBtnFace;
               Edit1.Enabled := False;
               Key := #0;
             end;
         end;
     end;
end;

17/02/2009, 20h52
GoustiFruit

Ce code ne nous dit pas ce qu'il y a dans ListBox1 au départ ?

Bonjour, voici mon code qui fonctionne avec ListBox1 et Listbox2 sur Form1 et Button1 :

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
   private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j  : Integer ;
begin
  for i := ListBox2.Items.Count - 1 downto 0  do
  begin
      j := ListBox1.Items.IndexOf(ListBox2.Items[i]) ;
      if j > -1 then
       begin
          ListBox1.Items.Delete(j);
       end;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   ListBox1.Items.Add('aaaa');
   ListBox1.Items.Add('bbbb');
   ListBox1.Items.Add('cccc');
   ListBox1.Items.Add('dddd');
   ListBox1.Items.Add('eeee');
   ListBox1.Items.Add('ffff');
   ListBox2.Items.Add('1111');
   ListBox2.Items.Add('bbbb');
   ListBox2.Items.Add('2222');
   ListBox2.Items.Add('dddd');
   ListBox2.Items.Add('33333');
   ListBox2.Items.Add('ffff');
 
end;
 
end.

Quand je clique sur le bouton, tous les items de Listbox1 qui existent dans ListBox2 sont détruits

Es tu sur qu'il n'y a pas d'espaces en trop ou de Pb avec la casse ?

18/02/2009, 09h46
sondo

Salut Charly910,

J'ai trouvé ou se trouve le problème. J'avais inséré les items de la ListBox1 en passant par propriété-items de la ListBox1. Alors que dans ton code, tu insère les données dans form.create. C'est ce que j'ai fais et çà marche bien.
Merci de m'avoir accordé de votre temps précieux.:king:
Bon courage à vous tous et vive Delphi...:yaisse2: