Combobox items
francksau
Messages postés
3
Date d'inscription
samedi 3 mai 2003
Statut
Membre
Dernière intervention
21 février 2004
-
14 févr. 2004 à 18:53
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
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
2 réponses
cs_Lassal
Messages postés
27
Date d'inscription
jeudi 7 novembre 2002
Statut
Membre
Dernière intervention
21 mai 2008
20 févr. 2004 à 15:17
20 févr. 2004 à 15:17
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
