Discussion :

[fermat]

Bonjour,


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bruno@Chrysis]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fermat]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PadawanDuDelphi]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

@+.

[PadawanDuDelphi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

@+.

[fermat]

Bonsoir,

merci de votre solution au problème.

Fermat