Buenos dias, estoy con un problema con este coponente una semana y no consigo sacarle el problema.
Tengo que hacer un cuadro con este componente de 4 columnas y 3 filas donde hay 4 susursales de banco y tres meses. Resulta que va bien todo menos la suma por sucursal y promedio. Pero es que lo mas guay de todo esto es que falla solo en la primera, el resto esta bien tod, dejo mi codigo:
[delphi]
procedure TForm1.CalcularClick(Sender: TObject);
var
totsuc: array [1..4] of real;
promsuc: array [1..4] of real;
totmes: array [1..3] of real;
prommes: array [1..3] of real;
columnas:integer;
renglones:integer;
begin
for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
totsuc[renglones+1]:=totsuc[renglones+1]+strtofloat(stringgrid1.Cells[columnas,renglones]);
end;
end;
for renglones:=0 to 3 do begin
promsuc[renglones+1]:=totsuc[renglones+1]/3;
end;
for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
totmes[columnas+1]:=totmes[columnas+1]+strtofloat(stringgrid1.Cells[columnas,renglones]);
end;
end;
for columnas:=0 to 2 do begin
prommes[columnas+1]:=totmes[columnas+1]/4;
end;
for renglones := 0 to 3 do begin
listbox1.Items.Add(floattostr(totsuc[renglones+1]));
listbox2.Items.Add(floattostr(promsuc[renglones+1]));
end;
for columnas := 0 to 2 do begin
listbox3.Items.Add(floattostr(totmes[columnas+1]));
listbox4.Items.Add(floattostr(prommes[columnas+1]))
end;
end;
end.
[/delphi]
