Comment ne pas pouvoir rentrer deux memes items dans une ComboBox ? Résolu

Question

Bonjour,
Je programme en Delphi depuis pas tr&#232;s longtemps !
Voila mon probl&#232;me : je dispose d'un Edit, d'un bouton nomm&#233; "ajouter" et d'une combobox.
Lorsque je clique sur le bouton "ajouter" j'ai le texte marqu&#233; dans Edit qui s'insert dans un nouvel Item de ma ComboBox.
Je voudrais savoir si il est possible et comment faire afin de ne pas pouvoir ajouter deux fois le meme item, donc pour ne pas avoir deux fois le meme item !
En fait, si je mets un certain texte dans Edit, et si je clique deux fois sur le bouton "ajouter", je souhaiterais qu'il n y ait qu'un seul item dans ma Combobox poss&#233;dant le nom marqu&#233; dans Edit !
Merci d'avance !

Val08000

cptpingu · Accepted Answer

Tu lis tout simplement le contenus des items de ta combobox, et tu regarde s'il n'existe pas d&#233;j&#224;.



Exemple:(&#224; adapter)



function EstPresent(Element:string):Boolean;

var

  i:integer;

begin

Result:= False;

  For i:=0  to  combobox1.ItemsCount-1 do

  begin

    If ComboBox1.Items[i]  = Element then Result:=True;

  end;

end;



Ensuite tu n'a qu'a tester s'il l'&#233;l&#233;ment existe:



If not EstPresent(Edit1.Text) then  else ShowMessage('L'&#233;l&#233;ment est d&#233;j&#224; pr&#233;sent !');

Val08000 · Answer

Ok Merci,
Mais alors tout ca, je le mets dans une procedure ?
D&#233;sol&#233; de demander destrucs pareils mais voila ke je d&#233;bute !
Merci !

Val08000

cptpingu · Answer

Non, tu le met simplement dans ton code. Vu que ca utilise un composant, tu met:

function Form1.EstPresent(Element:string):Boolean;



si tu y arrive vraimnet pas je t'enverrai une source.

Val08000 · Answer

Oui si ca te derange pas, je veux bien la source car la c un peu galere ! Tu peux me l'envoyer a [mailto:val08000@yahoo.fr val08000@yahoo.fr] si ca t'arrange !

En tout cas Merci !

Val08000

cptpingu · Answer

Ok, laisse moi 5-10 minutes.

Val08000 · Answer

Impecccable !!!!!
C g&#233;nial !Merci beaucoup !
Sinon, ils sont pas mal tes boutons ! Comment tu f&#233; pour les avoir ?

Encore Merci pour tout !

Val08000

cptpingu · Answer

Pour les boutons tu ajoute simplement le style XP a ta forme. Pour cela
tu ajoute 'XPMan' dans les uses c'est tout. (regarde la source que je
t'ai envoy&#233;).

Val08000 · Answer

Oki !
Merci beaucoup pour tout !
@+

Val08000

jlen100 · Answer

salut ,

il y a plus simple pour savoir si un &#233;l&#233;ment est pr&#233;sent dans une liste : il suffit d'utiliser la methode items.IndexOf() qui recherche la position d'un &#233;l&#233;ment dans une liste.

if ComboBox1.Items.IndexOf(element)<>-1 then l'&#233;l&#233;ment est dans la liste;

Val08000 · Answer

Ah ou&#233; ! 
Beh heu pourrais tu me donner plus d'infos, car la, ce ke je suis en train de faire, ca ne fonctionne pas !
Merci !

Val08000

jlen100 · Answer

salut, je ne vois pas le probleme chez moi ça marche. tu peux utliser le test soit directement à la place de la fonction EstPresent(element) puisque if ComboBox1.Items.IndexOf(element)<>-1 then est vrai si l'élément est dans liste IndexOf(var:string) est une methode de TStrings; pour l'utliser directement tu fais: if ComboBox1.Items.IndexOf(element)<>-1 then begin MessageDlg(element +' est deja dans la liste', mtError , [mbOk], 0); exit; // on averti et on sort sans rien faire end else; begin ComboBox1.Items.Append(element); // met l'élement à la fin de la liste end; nota : element doit être une variable de type string; soit tu l'utilises dans la fonction de cpt pingu tu fais: function EstPresent(Element:string):Boolean; begin Result:= False; if ComboBox1.Items.IndexOf(element)<>-1 then Result: =true; end; ça marche aussi mais cela donne un code un peu moins efficace que l'utilisation directe. ComboBox1.Items est un TStrings si tu veux en savoir plus sur les TStrings vas voir dans l'aide DELPHI à la rubrique TStrings tu y trouveras toutes les propriétés et méthodes permettant de les manipuler (insertion, supression, tri..........) ainsi chaque fois que tu trouveras Items dans un composant tu pourras utiliser ces propriétes et ces methodes; bonne prog

jlen100 · Answer

c'est encore moi

puisque tu utilises une combobox si tu mets la propr&#233;t&#233; AutoComplete a true Delphi te donne directement les &#233;l&#233;lents qui contiennent ce que vient d'&#234;tre saisie dans la propri&#233;t&#233; Text

Comment ne pas pouvoir rentrer deux memes items dans une ComboBox ?

12 réponses

Votre réponse

Discussions similaires