como sumar los elementos de una fila de un StringGrid

[[gatosoft]]

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...!

[PaulaGV]

muchísimas gracias!!!muy claras las respuestas, apenas tenga la segunda versión la estaré publicando!

[ecfisa]

Hola PaulaGV.

Agregando algo a lo que correctamente te han sugerido, noté que mencionas que vas a usar la última columna de cada fila para poner el resultado de la sumatoria de sus columnas, es decir que deberías impedir que se pueda escribir en ColCount - 1:

Código Delphi [-]
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
   CanSelect := ACol <> StringGrid1.ColCount - 1;
end;

Otra opción que sumaría los valores enteros, sin provocar una excepcion ante posibles valores alfanuméricos, es usando la función TryStrToInt:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  c ,f ,v, suma: integer;
begin
  with StringGrid1 do
  begin
    for f:= FixedRows to RowCount - 1 do
    begin
      suma:= 0;
      for c:= FixedCols to ColCount - 2 do
        if TryStrToInt(Trim(Cells[c,f]), v) then
          suma:= suma + v;
      Cells[ColCount-1, f]:= IntToStr(suma)
    end
  end
end;

Saludos.

[PaulaGV]

muchas gracias!!igual lo voy a probar... ya arme un código con las primeras respuestas y me quedo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,suma:integer;
begin
with StringGrid1 do
begin
suma:=0;
  for i := 1 to ColCount - 1 do
    for j := 1 to RowCount - 1 do
      begin
        Cells[i,j]:=Trim(Cells[i,j]);
        suma:=suma+ StrToIntDef(Cells[i,j],0);
      end;
end;
StringGrid1.Cells[1,4]:=IntToStr(suma);
end;

es una simple prueba para ver si funcionaba la parte de contar cada elemento en el StringGrid, por eso se le asigne el resultado yo misma a la ultima celda, luego tengo que modificar el código para que haga lo mismo con cada fila del StringGrid, ahora mi duda es otra, yo entiendo que la funcion TRIM quita los blancos en una cadena, entonces por que si no uso StrToIntDef en vez de StrToInt en el siguiente fragmento de codigo aparece el error '' is no a integer value?. Ademas que yo le puse una mascara para que solo se puedan ingresar números.Desde ya gracias!!

Código Delphi [-]
 suma:=suma+ StrToIntDef(Cells[i,j],0);

[ecfisa]

entonces por que si no uso StrToIntDef en vez de StrToInt en el siguiente fragmento de codigo aparece el error '' is no a integer value?.

Hola Paula.

Eso sucede por que Trim no produce ningún efecto cuando se aplica a una celda vacía ya que no tiene 'nada' para quitar. Es decir que tanto

Código Delphi [-]
  StrToInt('');

como

Código Delphi [-]
  StrToInt(Trim(''));

lanzarán una excepción.


El uso que haces de StrToIntDef es correcto, incluso más simple que TryStrToInt (aunque igual realiza la tarea).
Podrías eso sí, ahorrarte una línea y un begin/end usando Trim dentro de StrToIntDef:

Código Delphi [-]
    for j := 1 to RowCount - 1 do
      suma:= suma + StrToIntDef(Trim(Cells[i,j]), 0);

Creo que te quedaría de este modo:

Código Delphi [-]
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
   CanSelect := ACol <> StringGrid1.ColCount - 1; // no permite selección si es últimca columna
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  c , f, suma: integer;
begin
  with StringGrid1 do
  begin
    for f:= FixedRows to RowCount - 1 do // para c/fila
    begin
      suma:= 0; 
      for c:= FixedCols to ColCount - 2 do // para c/columna (menos la última)
        suma:= suma + StrToIntDef(Trim(Cells[c, f]), 0); // sumar
      Cells[ColCount-1, f]:= IntToStr(suma) // mostrar resultado en última columna
    end
  end
end;

Saludos.

[PaulaGV]

muchisimas gracias por las respuestas todas me fueron muy utiles!!!