Discussion :

[jmjmjm]

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 , ....

[Pedro]

Salut
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 :

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

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

[jmjmjm]

merci pedro je test ca ce soir

[jmjmjm]

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

[LadyWasky]

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 :

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

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 ?

[jmjmjm]

Merci pour le code ca marche niquel c'est le ComboBox1.clear qui me manquait 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

[LadyWasky]

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

Voici le code :

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
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+

[LadyWasky]

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

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
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.

[jmjmjm]

Merci c'est nikel

[LadyWasky]

J'ai apporté quelques optimisations et corrections :

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
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;