Tester qu'une valeur existe dans une "liste"

Bonjour

J'aimerai savoir s'il existe une fonction équivalente au in en SQL.
En gros j'aimerai tester qu'une chaine existe dans une liste, dans le style :

Code:

---

if mavaleur in ('toto','titi','tata','tutu'....) then

---

Y a-t-il une fonction pour ca ou faut-il tout faire à la mano ?

Merci :)

Tout dépend de ta liste.
Tu utilises quoi pour représenter ta liste ?

En utiisant une boucle et la méthode expliquée par ce lien, je pense que tu devrais pouvoir y arriver :

http://delphi.developpez.com/faq/?pa...#trouverchaine

A+

ok donc apparemment faut faire à la mano et il n'existe pas de fonction pour les feignantes dans mon genre :lol:

MD > c'est juste pour pas avoir à faire de boucle ou faire 36000 tests type

Code:

---

if mavariable = 'toto' or mavariable = 'titi' or mavariable = 'tutu' .... then

---

en gros j'ai une Tlistbox contenant le nom des champs d'une table et j'aimerai tester si certains champs existent pour ne pas que ca me provoque des erreurs quand j'essaye d'en rajouter par la suite (50 champs)

Mais, si c'est statique, tu peux utiliser in aussi

Code:

---

if mavaleur in ['toto','titi','tata','tutu'....] then

---

ok, je pensais pas car en faisant F1 sur "in" ca me donnait rien :?
je vais tester, merci !

Citation:

---

Envoyé par MD Software

Mais, si c'est statique, tu peux utiliser in aussi

Code:

---

if mavaleur in ['toto','titi','tata','tutu'....] then

---

---

Non, pas sur les chaines.

ben oui il me sort "type ordinal requis" :?
y'a pas d'autre solution que de mettre mes 50 champs dans un tableau et le parcourir pour tester ?

Et avec indexof ? Du style :

Code:

---

if listbox.items.indexof('bidulo')=-1 // bidulo n'existe pas dans la liste

---

j'y avais pas pensé, merci !

he les gas vous avez oublié de lui raplé qu'une listebox est un tableau de string
alors si tu veux pas utilisé la méthode de rico

Code:

---

1 2 3 4 5 6 7 8

function cherchemot(m:string):boolean; var i:integer; begin i:=0; while (listbox.item.strings[i]<>m) and (i<listbox.count-1) do inc(i); result:=(i<listbox.count); end;

---

Si ta liste est constante (toujours les mêmes éléments), tu peux utiliser AnsiIndexStr/AnsiIndex (case-sensitive ou pas) qui renvoie l'index où il a trouvé la chaîne ou alors AnsiMatchStr/AnsiMatchText qui renvoie True s'il a trouvé une correspondance.

Le in que tu cherches, c'est AnsiMatchXXX

Et juste en passant comme ça, ce ne serait pas mieux de mettre l'intelligence dans la BDD avec un trigger par exemple :?: