A voir également:
- Combobox delphi
- Delphi combobox - Meilleures réponses
- Delphi combobox items - Meilleures réponses
- Remplir une combobox avec une base de données access - Forum - Delphi / Pascal
- Utilisation avancée du composant combobox sur delphi 5 ✓ - Forum - Delphi / Pascal
- Combobox delphi 7 - Forum - Delphi / Pascal
- ComboBox.Text - Forum - Delphi / Pascal
- Delphi / Pascal : exemple de listbox et combobox personnalisé - CodeS SourceS - Guide
2 réponses
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
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