RECUPERER LE TEXTE DE L'ITEM SELECTIONNÉ DANS UN LISTBOX...
cs_greg505
Messages postés12Date d'inscriptionmercredi 8 mai 2002StatutMembreDernière intervention24 mai 2006
-
10 juil. 2002 à 15:56
himself62
Messages postés2Date d'inscriptionlundi 4 décembre 2000StatutMembreDernière intervention10 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.
himself62
Messages postés2Date d'inscriptionlundi 4 décembre 2000StatutMembreDernière intervention10 mars 2008 10 mars 2008 à 22:15
J'avais oublié de voter !!!
himself62
Messages postés2Date d'inscriptionlundi 4 décembre 2000StatutMembreDernière intervention10 mars 2008 10 mars 2008 à 22:14
Merci.
C'est simple mais cela m'a aidé !!!
willer90
Messages postés1Date d'inscriptionmardi 18 février 2003StatutMembreDerniè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és12Date d'inscriptionmercredi 8 mai 2002StatutMembreDernière intervention24 mai 2006 10 juil. 2002 à 15:56
Ha oue merde :) Chui con
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 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;
10 mars 2008 à 22:15
10 mars 2008 à 22:14
C'est simple mais cela m'a aidé !!!
5 janv. 2005 à 15:38
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+
10 juil. 2002 à 15:56
8 juil. 2002 à 21:44
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;