Adicionalmente a lo que dice Román, debes hacer unos ajustes a tu código...
1) Si quieres sumar todas las filas de todas las columnas, debes hacer un doble ciclo anidado...
For i:= 1 to ColCount-1 do
For j:=1 to RowCount -1 do
{Aqui sumas tus FILAS....Cells[i,j]}
2) Asignar el resultado de la casilla modificada como dice Román
Cells[i,j] := Trim(Cells[i,j]);
3) Recordar que si quieres que el for trabaje para mas de una linea debes encerrar la sentencia en un bloque Begin..end, ya que en tu ejemplo, el for termina y al final (solo al final del recorrido) ejecuta la sentencia:
suma:=suma+StrToInt(Cells[1,j]); lo cual quiere decir que solo sumaste una casilla...
Espermos la versión dos de tu tarea...!
|