Combo Box sur Delphi
Résolu/Fermé
Maxxx_^
Messages postés
11
Date d'inscription
mercredi 31 décembre 2008
Statut
Membre
Dernière intervention
1 septembre 2010
-
21 avril 2009 à 11:48
Maxxx_^ Messages postés 11 Date d'inscription mercredi 31 décembre 2008 Statut Membre Dernière intervention 1 septembre 2010 - 21 avril 2009 à 12:24
Maxxx_^ Messages postés 11 Date d'inscription mercredi 31 décembre 2008 Statut Membre Dernière intervention 1 septembre 2010 - 21 avril 2009 à 12:24
A voir également:
- Combo Box sur Delphi
- Telecharger delphi 7 - Télécharger - Langages
- Tera box - Télécharger - Stockage
- Adresse ip box - Guide
- Music box pro - Télécharger - Lecture & Playlists
- Up to box - Accueil - Guide services en ligne
1 réponse
Maxxx_^
Messages postés
11
Date d'inscription
mercredi 31 décembre 2008
Statut
Membre
Dernière intervention
1 septembre 2010
21 avril 2009 à 12:24
21 avril 2009 à 12:24
C'est bon j'ai trouvé ^^
Voici la réponse :
Var
i: Integer;
begin
for i := 0 to Combobox2.Items.Count - 1 do
begin
if Combobox2.Items[i] = 'TCP_Client_' +IPAddress +':' +IntToStr(Port) then
begin
Combobox2.Items.Delete(i);
if Combobox2.ItemIndex = i
then Combobox2.Text := '';
Break;
end;
end;
end;
Voici la réponse :
Var
i: Integer;
begin
for i := 0 to Combobox2.Items.Count - 1 do
begin
if Combobox2.Items[i] = 'TCP_Client_' +IPAddress +':' +IntToStr(Port) then
begin
Combobox2.Items.Delete(i);
if Combobox2.ItemIndex = i
then Combobox2.Text := '';
Break;
end;
end;
end;