alimanter une listbox a partir d'un tableau

**wikimeta** · 30/10/2005, 20h38

bonjour a tous, nouvel utilisateur de delphi je cherche a alimenter une listebox a partir du résultat d'un filtre sur un tableau.

ca fait un petit moment que je planche dessus mais ca veut pas venir dinc si une ame genereurse pouvait me renseigner.merci d'avance.

**smyley** · 30/10/2005, 20h57

tu fais une bougle sur chaque élément de tableau ( for..do..end ) et tu ajoutes à la ListBox avec ListBox.Items.Add

**wikimeta** · 31/10/2005, 08h45

merci pour la reponse, mais c le resultat du filtre que je cherche a ajouter a ma listbox et pas tout le tableau et je sais pas exactement coment fonctionne les filtres.merci

**TicTacToe** · 31/10/2005, 11h34

Je crois qu'il faut préciser exactement les types que tu utilises, quel est ta source, quelle est ta dest (visiblement une TListBox)..., le filtre est fait au vol, ou s'agit-il d'un filtre intégré à une TTable par exemple ... ???

**wikimeta** · 31/10/2005, 12h16

pour etre precis, je créer un tableau de string. Puis dans un Edit je tape un mot ou un debut de mot et je voudrais que que dans ma listbox s'affichent les mots (compris dans le tableau) commencant par la chaine de caracteres que j'ai saisi dans mon Edit. c plus claire?

**smyley** · 31/10/2005, 12h37

en supposant que ton objet TListBox se nomme ListBox1 et que tu es une déclaration comme celle-ci :

Code :

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

1
2
3
4
5
 
var
 list : TStringList; //Liste des valeurs à trier
 search : string; //Chaine à rechercher
 i : integer;

Tu aurais celà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 for i:= 0 to list.Count -1 do
  begin
   if(Length(list[i]) >= Length(search)) then
    begin
 
      //Recherche sensible à la casse
      if(Copy(list[i],1,length(search)) = search) then
       listBox1.Items.Add(list[i]);
 
    end;
  end;

**edam** · 31/10/2005, 12h46

pourquoi pas en utilisant pos + ansiuppercase

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.edit1Change;
var s:string;
begin
listBox1.clear;
if length(edit1.text)=0 then exit;
s:=ansiuppercase(edit1.text);
for i:= 0 to list.Count -1 do 
  begin 
 
      if (pos(s,ansiuppercase(list[i])) >0) then 
       listBox1.Items.Add(list[i]); 
    end; 
edn;