Comment filtrer une TListBox ?

Version imprimable

13/11/2005, 18h35
jmjmjm

Comment filtrer une TListBox ?

Je souhaiterai filtrer une listBox:
J'ai une TEDit dans laquelle je rentre le debut d'un nom
et je voudrai que le contenue de la listBox evolue en fonction de ce qui est tappé
Exemple lorsque je tappe av :
dans la listBox tout les mots commence par av : Avion,avec , ....
13/11/2005, 18h41
Pedro
Salut :D
Un méthode consiste à mettre ta liste de mots dans une liste (TStringList par exemple) et une autre qui contient la liste filtrée... A chaque fois que le contenu du TEdit change tu fais:
Code:

1 2 3 4 5 6 for i:=0 to ListFiltre.Count-1 do begin if Copy(ListeFiltre.Strings[i],1,length(Edit1.Text))=Edit1.text then //Ajoute à la liste Filtrée end;
Evidemment, il faudra que tu prennes en compte si le TEdit est vide ;)
13/11/2005, 20h24
jmjmjm

merci pedro je test ca ce soir :D
14/11/2005, 00h42
jmjmjm

je n'arrive pas a faire marcher ta fonction peux tu me faire un exemple stp ! sa me met une erreur!

Quelle erreur ? qu'il ne connait pas la fonction Copy ?

As-tu bien mis le code de Pedro24 dans l'évènement OnChange de ton TEdit ???

Exemple de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Edit1Change(Sender: TObject); var i:integer; begin ListBox1.clear; for i:=0 to ListFiltre.Count-1 do begin if Copy(ListeFiltre.Strings[i],1,length(Edit1.Text))=Edit1.text then ListBox1.Items.Add(ListeFiltre.Strings[i]); end; end;
Ailleurs dans ton code, initialises tu bien ListeFiltre ?

14/11/2005, 22h58
jmjmjm

Merci pour le code ca marche niquel c'est le ComboBox1.clear qui me manquait :D tout mes resultat se mettait a la suite et j'avais pas fait attention quoi qu'il en soit mon petit souci avec ce code est qu'il est extremement lent je gere 15000 entrées environ y a t'il moyen de l'accelerer

Oui, il y a moyen :
Dans ma fiche, j'ai mis :
- 1 TEdit
- 1 TListBox

Voici le code :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    ListeFiltre:TStringList;
    function DebutMot(Index,Longueur:Integer):string;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function TForm1.DebutMot(Index,Longueur:Integer):string;
begin
  result:=Copy(ListeFiltre.Strings[Index],1,Longueur);
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var i,ALength:integer;
    AText:string;
begin
 ListBox1.clear;
 AText:=Edit1.Text;
 ALength:=length(AText);
 Form1.cursor:=crHourGlass;
 Application.ProcessMessages;
 if ALength=0 then 
 begin 
   //ListBox1.Items.AddStrings(ListeFiltre);  //<--ligne optionnelle
   Form1.cursor:=crDefault;
    Exit;
 end;
 
  i:=0;
 while ((i<ListeFiltre.Count-1) and (DebutMot(i,ALength)<AText)) do Inc(i);
 while ((i<ListeFiltre.Count-1) and (DebutMot(i,ALength)=AText)) do
 begin
   ListBox1.Items.Add(ListeFiltre.Strings[i]);
   Inc(i);
 end;
 Form1.cursor:=crDefault;  
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  ListeFiltre.LoadFromFile('mots.txt');
  ListeFiltre.Sort;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListeFiltre:=TStringList.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  ListeFiltre.Free;
end;
 
end.

C'est un poil plus rapide (ma liste de mots fait 336531 mots !, je l'ai eu ici : http://www.pallier.org/ressources/dicofr/dicofr.html)

Tu as remarqué que j'ai zappé le remplissage de la liste quand le mot dans la TListBox est égal à '' (rien du tout). Donc, si tu n'as que 15000 mots tu peux tenter l'affichage de tous les mots en enlevant les marques de commentaire // devant la ligne optionnelle.

Tiens nous au courant !
A+

Comme dans ma liste de mots, j'avais des accents, ça ne marchait pas nickel, voici qui est corrigé :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    ListeFiltre:TStringList;
    function DebutMot(Index,Longueur:Integer):string;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
uses strutils;
 
function EnleverAccents(S: string): string;
const
  CHAINE_DEPART =  'àäâãçéèêëìïîôöòûüùÿÁÀÄÂÃÉÈÊËÍÎÌÔÖÒÓÕÜÛÙÚÝ';
  CHAINE_ARRIVEE = 'aaaaceeeeiiiooouuyyAAAAAEEEEIIIOOOOOUUUUY';
var
  i, Position: Integer;
begin
  for i:=1 to Length(S) do
  begin
    Position:=Pos(S[i],CHAINE_DEPART);
    if Position > 0 then    // Si c'est accentué ...
      S[i]:=CHAINE_ARRIVEE[Position]; // On met le carac correspondant non accentué.
  end;
  Result:=S;
end;
 
function TForm1.DebutMot(Index,Longueur:Integer):string;
var UnMot:string;
begin
  UnMot:=ListeFiltre.Strings[Index];
  result:=EnleverAccents(Copy(UnMot,1,Longueur));
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var i,ALength:integer;
    AText:string;
begin
 ListBox1.clear;
 RichEdit1.Clear;
 AText:=EnleverAccents(Edit1.Text);
 ALength:=length(AText);
 Form1.cursor:=crHourGlass;
 Application.ProcessMessages;
 if ALength=0 then
 begin
//   ListBox1.Items.AddStrings(ListeFiltre);
   Form1.cursor:=crDefault;
   Exit;
 end;
 i:=0;
 while ((i<ListeFiltre.Count-1) and (DebutMot(i,ALength)<AText))
 do Inc(i);
 while ((i<ListeFiltre.Count-1) and (DebutMot(i,ALength)=AText)) do
 begin
   ListBox1.Items.Add(ListeFiltre.Strings[i]);
   Application.ProcessMessages;
   Inc(i);
 end;
 Form1.cursor:=crDefault;
  Application.ProcessMessages;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  ListeFiltre.LoadFromFile('mots.txt');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListeFiltre:=TStringList.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  ListeFiltre.Free;
end;
 
end.

16/11/2005, 21h46
jmjmjm

Merci c'est nikel

J'ai apporté quelques optimisations et corrections :

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
procedure TForm1.Edit1Change(Sender: TObject);
var i,ALength:integer;
    AText:string;
begin
 ListBox1.Items.BeginUpdate; //<--vachement plus rapide
 ListBox1.clear;
//RichEdit1.Clear;  <-- à virer !
 AText:=EnleverAccents(Edit1.Text);
 ALength:=length(AText);
 Form1.cursor:=crHourGlass;
 //Application.ProcessMessages;  <-- à virer, si l'utilisateur tape trop vite
 if ALength=0 then
 begin
//   ListBox1.Items.AddStrings(ListeFiltre);
  ListBox1.Items.EndUpdate;
   Form1.cursor:=crDefault;
   Exit;
 end;
 i:=0;
 while ((i<ListeFiltre.Count-1) and (DebutMot(i,ALength)<AText))
 do Inc(i);
 while ((i<ListeFiltre.Count-1) and (DebutMot(i,ALength)=AText)) do
 begin
   ListBox1.Items.Add(ListeFiltre.Strings[i]);
   //Application.ProcessMessages;  <-- à virer, si l'utilisateur tape trop vite
   Inc(i);
 end;
 Form1.cursor:=crDefault;
 ListBox1.Items.EndUpdate;
  Application.ProcessMessages;
end;