RECUPERER LE TEXTE DE L'ITEM SELECTIONNÉ DANS UN LISTBOX...

cs_greg505 Messages postés 12 Date d'inscription mercredi 8 mai 2002 Statut Membre Dernière intervention 24 mai 2006 - 10 juil. 2002 à 15:56
himself62 Messages postés 2 Date d'inscription lundi 4 décembre 2000 Statut Membre Dernière intervention 10 mars 2008 - 10 mars 2008 à 22:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12035-recuperer-le-texte-de-l-item-selectionne-dans-un-listbox

himself62 Messages postés 2 Date d'inscription lundi 4 décembre 2000 Statut Membre Dernière intervention 10 mars 2008
10 mars 2008 à 22:15
J'avais oublié de voter !!!
himself62 Messages postés 2 Date d'inscription lundi 4 décembre 2000 Statut Membre Dernière intervention 10 mars 2008
10 mars 2008 à 22:14
Merci.
C'est simple mais cela m'a aidé !!!
willer90 Messages postés 1 Date d'inscription mardi 18 février 2003 Statut Membre Dernière intervention 5 janvier 2005
5 janv. 2005 à 15:38
Slt nono40;

Je ne sais pas si c un erreur de frappe ou autre, mais au niveau du " With Liste Do If ItemIndex<0" y a un tite erreur sa donne enfin de compte

function TXT_ItemSelected(liste:TListBox):string;
begin
With Liste Do If ItemIndex = -1 Then Result:='' Else result := Items[ItemIndex];
end;

Vu les sources que tu as déja placée ici, ce n'est pas a toi que je fait la remarque mais plutot aux autres personne qui débute ;)

A+
cs_greg505 Messages postés 12 Date d'inscription mercredi 8 mai 2002 Statut Membre Dernière intervention 24 mai 2006
10 juil. 2002 à 15:56
Ha oue merde :) Chui con
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 2
8 juil. 2002 à 21:44
Il ne faut pas oublier la valeur -1 !

Si aucun élément n'est selectionné dans la liste, la fonction provoque une erreur d'indice. Il faut écrire :
function TXT_ItemSelected(liste:TListBox):string;
begin
With Liste Do If ItemIndex<0
Then Result:=''
Else result := Items[ItemIndex];
end;
Rejoignez-nous