como sumar los elementos de una fila de un StringGrid

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