Discussion :

[stefano]

bonjours a tous,

J'aimerai savoir comment faire pour rendre une procedure de recherche dans une table de données insensible a la casse.

Est ce possible ?

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm2.rechercheClick(Sender: TObject);
var Option : TLocateOptions;
begin
 
 if RechercheNomEdit.Text <> '' then
  begin
       Option := [loPartialKey];
      Table.Locate('Nom',RechercheNomEdit.Text,Option);
  end;

Je pensais pourtant que [loPatialKey] rendais insensible a la casse mais ça ne fonctionnement pas.

merci pour votre aide

[Cl@udius]

Salut,

Le paramètre Option de la fonction Locate est une combinaison de 2 valeurs possibles: loPartialKey et loCaseInsensitive.
La valeur qui t'intéresse est loCaseInsensitive.

Mais tu aurais pu aussi faire et regarder le typeTLocateOptions !

@+

[stefano]

Oupsss Désoler, c'est pas la bonne source que j'ai mis
Mon problème est sur ce code ci

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 TForm2.FiltreNomChange(Sender: TObject);
var Filtre : string;
 
begin
        Filtre := 'Nom =''' + FiltreNom.Text + '*''';
              if FiltreNom.Text =''  then
                    begin
                           Table.Filtered:=false;
         exit;
  end;
       Table.Filter := Filtre;
               Table.Filtered := true;
 
  end;

J'ai tenter de mettre l'option loCaseinsensitive comme pour le code du mon premier post mais dans ce cas il m'est impossible de saisir quoi que ce soit dans la cellule.

Désoler pour l'erreur de code source

Méa Culpa

[Cl@udius]

Salut,

Personellement je préfère passer par l'évènement OnFilterRecord. Je trouve son utilisation plus souple que la définition de la propriété Filter.

Je vais donc supposé que tu travailles avec un TQuery.
Implémente donc l'évenement OnFilterRecord de ton TQuery comme ceci:

Code :

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

1
2
3
4
5
 
procedure TForm2.Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := UpperCase(Query1NOM.AsString) = UpperCase(FiltreNom.Text);
end;

Ainsi ta procédure devient:

Code :

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

1
2
3
4
5
 
procedure TForm2.FiltreNomChange(Sender: TObject);
begin
  Query1.Filtered := (FiltreNom.Text <> '');
end;

@+

[stefano]

Merci pour ton aide c'est sympa