Afficher dans une ListBox

Bonjour,


Je dois effectuer des calculs sur une StringGrid, (exemple la somme des valeurs d'une colonne)

Code:

---

1 2 3 4 5 6

begin for x:= 0 to StringGrid1.RowCount-1 do Somme:=Somme+StrToInt(trim(StringGrid1.Cells[20,x])); StringGrid1.Cells[0,31]:= IntToStr(Somme); end;

---

Je souhaite afficher ce résultat dans une ListBox..mais je n'y parviens pas.

Merci de votre aide.

Fermat

Code:

---

1 2	ListBox.Items.Add(IntToStr(Somme));

---

Bonjour,

rien ne s'affiche dans la ListBox.
voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button4Click(Sender: TObject); var somme:integer; x:integer;   begin for x:= 0 to stringgrid1.RowCount-1 do somme:=somme+strtoint(trim(stringgrid1.Cells[20,x]));     end;   procedure TForm1.ListBox1Click(Sender: TObject); begin { Listbox1.canvas.font.color:=clblue; } listbox1.Items.Add(IntToStr(Somme)); end;   end.

---

Merci

Fermat

Bonjour,

Je pense que tu devrais déclarer ta variable "somme" dans ta fiche, car là elle est affectée à ton bouton4 seulement...

Code:

---

1 2 3

procedure TForm1.Button4Click(Sender: TObject); var somme:integer;

---

En faite t'as du déclarer une autre variable somme quelquepart, qui elle doit être vide.

@+.

Ou plutôt, en relisant plus attentivement:
Si tu veux afficher ta somme dans ta listbox sur un click sur le bouton4:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button4Click(Sender: TObject); var somme:integer; x:integer;   begin for x:= 0 to stringgrid1.RowCount-1 do somme:=somme+strtoint(trim(stringgrid1.Cells[20,x])); listbox1.Items.Add(IntToStr(Somme));   end;

---

@+.

Bonsoir,

merci de votre solution au problème.

Fermat