Discussion :

[messahel]

j'ai deux listbox, ListBox1 et ListBox2
je veux faire un test qui verifie si un item existe soit dans ListBox1 ou Dans ListBox2 en fonction de la valeur de l'indice I de la boucle For

exemple:

Code :

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

1
2
3
4
5
 
For I:=1 to 2 do
begin
If TListeBox('ListBox'+inttostr(I)).items.indexof('xxxxxxxx')=-1 Then showmessage('wwwwwwwwwwwwww');
end;

[exoseven]

ça ne marchera jamais, delphi n'est pas un langage de script

si vraiment tu veux faire ce genre de manipulation tu places tes listbox dans une TStringList avec un code du genre

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
MesListBox.addObject('listbox1',ListBox1);
MesListBox.addObject('listbox2',ListBox2);
 
 
for i:=1 to 2 do
begin
 
 index := MesListBox.indexof('listbox'+inttostr(i));
 
 if index<0  then continue;
 
If TListBox(MesListBox.object[index]).items.indexof('xxxxxxxx')=-1 Then showmessage('wwwwwwwwwwwwww');
 
 
end;

avec les delphi récent on peut faire mieux que d'utiliser une TStringList mais l'idée est là.

[SergioMaster]

Bonjour,

pourquoi ne pas utiliser Findcomponent

[messahel]

merci mes frères, j'ai résolu le problème avec FinComponent

Code :

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

1
2
3
4
5
6
7
8
9
 
var listboxTemp:TListBox;
begin
For I:=1 to 2 do
      begin
      listboxTemp:=TListBox(Form1.FindComponent('ListBox'+inttostr(I)));
      If listboxTemp.items.indexof('xxxxxxxx')=-1 Then showmessage('wwwwwwwwwwwwww')
      end;
end;