Combobox items

Question

Bonjour , j'aurai voulu savoir comment limiter le nombre items rentré dans un combobox et aussi comment faire lorsque un item déjà saisit n'apparaisse pas de nouveau dans la liste .

Pour info j'utilise lazarus sous linux et non delphi ( car je sais que ces options sont diponibles dans les options du comboboxdans delphi) mais mais pas sous lazarus .

Donc je voudrai savoir comment l'intégrer dans le code .

Merci d'avance  pour vos réponses 
 .
francksau

cs_Lassal · Answer

Pour tester tout cela
Tu crée un nouveau projet avec sur ta forme :
- Une ComboBox appelé ComboBox
- Un bouton appelé Button
- Un TEdit appelé Edit

Dans le private tu declares la fonction :

private
    { Déclarations privées }
    function VerifCombo(p_sMotAAjouter : String) : Boolean;

function TForm1.VerifCombo(p_sMotAAjouter : String) : Boolean;
         var
         l_iI : Integer;
begin

     Result := False;

     if ComboBox.Items.Count > 0 then
     begin
          for l_iI := 0 to ComboBox.Items.Count - 1 do
          begin
               // si tu veux que pour l'egalite entre un element dans ta combobox et
               // le mot que tu veux rajouter ne prenne pas en compte les majuscules
               // et minuscule tu mets la ligne de code en commentaire suivante
               // à la place de celle juste après.

               //if UpperCase(ComboBox.Items.Strings[l_iI]) = UpperCase(p_sMotAAjouter) then

               if ComboBox.Items.Strings[l_iI] = p_sMotAAjouter then
               begin
                    Result := True;
               end;
          end;
     end;

end;

procedure TForm1.ButtonClick(Sender: TObject);
begin

     if VerifCombo(Edit.Text) = False then
     begin
          ComboBox.Items.Add(Edit.Text);
     end;

end;

tu executes et tu tapes un mot dans ton TEdit et appuis sur le bouton si le mot existe deja il le rajoutera pas, sinon il sera ajouté a ta ComboBox.

Voila et vive Delphi !! ;) 
Lassal

francksau · Answer

Merci de ta réponse je vais tester tout cela 

francksau

Combobox items

2 réponses

Votre réponse

sur les mêmes thèmes