Comment faire la somme d'items
Résolu
Utilisateur anonyme
-
7 févr. 2006 à 12:24
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 7 févr. 2006 à 13:10
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 7 févr. 2006 à 13:10
A voir également:
- Comment faire la somme d'items
- Somme sql - Forum SQL
- Sql somme cumulée - Forum SQL
- Somme javascript - Forum Javascript / DHTML
- Somme cumulée sous Access ✓ - Forum VB.NET
- Sql somme - Forum SQL
2 réponses
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
7 févr. 2006 à 12:47
7 févr. 2006 à 12:47
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
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
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
7 févr. 2006 à 13:10
7 févr. 2006 à 13:10
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
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
