Comment faire la somme d'items

Résolu
Signaler
-
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
-
Salut à tous :

Voila j'ai une listbox contenant différents items :
J'ai besoin de récuperer dans un TEdit l'ensemble des itemps par exemple

"Edit1.text:=Item1+'\'item2+'\'item2+'\'+item3+......+'\'+item n ou n
est l'item sur lequel je clique sur ma listbox.

Comment faire svp

merci à vous

2 réponses

Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
salut,

si ta listbox contient les items le N° de ligne sur laquelle tu cliques et renvoyé par imtemindex il faut faire:

edit1.text:='';

for i:=0 to listbox.itemindex do edit1.text:=edit1.text+listbox.items[i];



@+

jlen
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,
tu peux aussi faire comme ça :

Procedure AddFromListBox(var aEdit : TEdit; Const aValue : String);
Const StrMask = '%s%s\';
Begin
aEdit.Text : = Format(StrMask, [aEdit.Text, aValue]);
End;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
AddFromListBox(Edit1, ListBox1.Items[ListBox1.itemindex]);
end;

@+
Cirec