Combobox items

Messages postés
3
Date d'inscription
samedi 3 mai 2003
Statut
Membre
Dernière intervention
21 février 2004
- - Dernière réponse : francksau
Messages postés
3
Date d'inscription
samedi 3 mai 2003
Statut
Membre
Dernière intervention
21 février 2004
- 21 févr. 2004 à 13:20
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
Afficher la suite 

2 réponses

Messages postés
27
Date d'inscription
jeudi 7 novembre 2002
Statut
Membre
Dernière intervention
21 mai 2008
0
Merci
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
Commenter la réponse de cs_Lassal
Messages postés
3
Date d'inscription
samedi 3 mai 2003
Statut
Membre
Dernière intervention
21 février 2004
0
Merci
Merci de ta réponse je vais tester tout cela

francksau
Commenter la réponse de francksau