alimanter une listbox a partir d'un tableau

Version imprimable

30/10/2005, 20h38
wikimeta

alimanter une listbox a partir d'un tableau

bonjour a tous, nouvel utilisateur de delphi je cherche a alimenter une listebox a partir du résultat d'un filtre sur un tableau. :arf: 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.
30/10/2005, 20h57
smyley

tu fais une bougle sur chaque élément de tableau ( for..do..end ) et tu ajoutes à la ListBox avec ListBox.Items.Add
31/10/2005, 08h45
wikimeta

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
31/10/2005, 11h34
TicTacToe

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 ... ???
31/10/2005, 12h16
wikimeta

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?

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

Code:

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

Tu aurais celà :

Code:

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;

pourquoi pas en utilisant pos + ansiuppercase

Code:

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;

pas tester :oops:

31/10/2005, 13h05
smyley

Citation:

Envoyé par wikimeta

s'affichent les mots (compris dans le tableau) commencant par la chaine de caracteres

donc je me suis pas occuppé de chercher la chaine autre part qu'au début ;) mais en effet, pour ne pas que ce soit sensible à la casse, on peut faire ansiuppercase :)
31/10/2005, 13h49
wikimeta

un trés grand merci a tout les deux ca marche nickel. :lahola: :applo:
31/10/2005, 14h24
smyley

hihi ;)
n'oublie pas le tag :resolu: :) ( petit bouton en bas à gauche )