insensible a la case

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:

---

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

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 :f1: et regarder le typeTLocateOptions !

@+

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

Code:

---

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

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:

---

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:

---

1 2 3 4 5

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

---

@+

Merci pour ton aide c'est sympa