como sumar los elementos de una fila de un StringGrid

[Casimiro Noteví]

Creo recordar que el stringgrid es columna, fila y lo estás poniendo al revés.

Código Delphi [-]
grDato[columna,fila]

[[gatosoft]]

Hola Paula, Veo que sigues luchando con tus grillas.... y como sugerencia, es bueno que contiinues los temas en los hilos que ya empezaste, y no abrir post nuevos con el mismo tema....asi todos pueden documentarse con las respuestas que ya se han venido dando.

Aunque no es política del foro hacerle la tarea a las personas... y con el perdon de los moderadores... aquí te va una posible solución a tu problema.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var filas, columnas, suma:integer;
begin
with StringGrid1 do
begin
  for filas := 1 to RowCount - 1 do {recorres todas las filas menos la primera (0)}
  Begin
    suma:= 0; {Cada vez que comiences una nueva fila, inicializas en cero}
    for Columnas := 1 to ColCount - 2 do {Recorres todas las columnas menos la primera y la última por que allí pondrás los resultados}
    begin
      suma:=suma + StrToIntDef((Trim(Cells[columnas,filas])),0);
    end;//for columnas
    cells[colCount-1, filas]:=Inttostr(suma); {Al finalizar la suma de cada columna, (al salir del for columnas) pones el resultado en la última columna que estas evaluando.}
  end;//for filas
end;//with

end

un saludo,

[Casimiro Noteví]

He combinado ambos hilos en uno.

[[Delphius]]

Empezado por Casimiro Notevi

Creo recordar que el stringgrid es columna, fila y lo estás poniendo al revés.

Código Delphi [-]grDato[columna,fila]

Tarde me lo recuerdas amigo, tarde... tarde.
Hace unas semanas me volví loco tratando de encontrar un error en mi mar de código. No veía donde estaba haciendo supuestamente mal unos cálculos... Todo estaba en orden. Todo estaba correcto. El único defecto es que al momento de presentar los datos confundí un A[j, i] con A[i, j]. Y Claro, como veía que los datos no coincidían con lo esperados que me puse en plan NewDelphius Super Sayayin en que alguna de las miles de operaciones fallaba.

Así que lección aprendida: ahora tengo pegado un post-it en el monitor que dice, con letras rojas: "NO CONFUNDIR FILAS CON COLUMNAS" y una imagen indicando el sentido de filas y columnas con flechas de una matriz que lo acompaña.
Por cierto... ya me quedé sin espacio en el monitor... tengo muchos post-its (afortunadamente ninguno es de la contraseña... a ese lo guardo en el cajón )

Saludos pegados,
PD: Se han pedido los derechos de autor a Al para dar este saludo

[PaulaGV]

es cierto lo de las filas y columnas, a pesar de que ya lo sabia no lo había tenido en cuenta. Muchas gracias por la información, y con respecto a "resolver mi tarea" simplemente pedí que me ayudaran a encontrar mi error, de todas formas agradezco que te tomes el tiempo de reescribir el código.

[ecfisa]

Hola Paula.

Si revisas el mensaje [ #9 ], verás que el último código hace exáctamente lo que buscas.

Tu única equivocación estuvo en la línea:

Código Delphi [-]
  cells[filas,colCount-1]:=Inttostr(suma)

Debería haber sido:

Código Delphi [-]
  Cells[ColCount-1, filas]:= IntToStr(suma)

Saludos.

[PaulaGV]

muchas gracias!!!