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 .
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.
