bonjour à tous chers programmeurs en delphi.
Voilà j'ai un problème avec le filtre. J'aimerai que lors de mes recherches, quand j'entre un caractère ou une lettre correspondant à un nom dans ma base de donnée, que tous ceux dont les noms ne commencent pas par cette lettre s'effacent. Mais le hic c'est que lorsque j'entre un caractère, c'est tout qui disparait. Voici mon code source:


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
procedure TForm12.Edit1Change(Sender: TObject);
var Filtre : string;
begin
 
// Constrcuction du Filtre avec le texte saisi dans la zone TEdit
Filtre := 'Nom_client =''' + Edit1.Text + '*''';
// Test si il n'y a rien dans le TEdit
if Edit1.Text ='' then
begin
// Arrête le filtrage de la table
form4.client.Filtered:=false;
// Quitte la méthode
exit;
end;
// Mise en place du filtre
form4.client.Filter := Filtre;
// Activation du filtre
form4.client.Filtered := true;
end;'
Pourriez-vous me dire où est le problème?
Merci de vos réponses.