8 respuestas en este tema

[edgar_prospero]

que hay amigos a ver quien puede echarme una mano tengo un stringgrid al cual le voy agregando datos por medio de un edit hasta ahi todo bien mi problema es que quiero lograr sumar toda una columna llamada importe y lo intento con el siguiente codigo pero me marca el siguiente error:
exception class Econvert Error with message "" is not a valid integer value y lo extraño es que si meto 4 registros si me hace la suma ojala puedan ayudarme

delphi

var 
i, suma: integer; 
begin 
suma:=0; 
for i:=0 to StringGrid1.ColCount-1 do 
if i<=StringGrid1.ColCount-2 then 
suma:=suma+ StrToInt(StringGrid1.Cells[4,i+1]); 
 
label7.Caption:= intToStr(suma);

[TiammatMX]

que hay amigos a ver quien puede echarme una mano tengo un stringgrid al cual le voy agregando datos por medio de un edit hasta ahi todo bien mi problema es que quiero lograr sumar toda una columna llamada importe y lo intento con el siguiente codigo pero me marca el siguiente error:
exception class Econvert Error with message "" is not a valid integer value y lo extraño es que si meto 4 registros si me hace la suma ojala puedan ayudarme

delphi

var 
i, suma: integer; 
begin 
suma:=0; 
for i:=0 to StringGrid1.ColCount-1 do 
if i<=StringGrid1.ColCount-2 then 
suma:=suma+ StrToInt(StringGrid1.Cells[4,i+1]); 
 
label7.Caption:= intToStr(suma);

No he usado mucho el TStringGrid, pero te puedo sugerir que sumes los valores ANTES de ponerlos en el StringGrid, por aquéllo de los errores raros, insolubles y que te quiebran la cabeza.

Sí, lo sé, no es "elegante", pero es efectivo... 

[edgar_prospero]

es que el problema es que voy agregando producto por producto al stringgrid y hasta al ultimo mediante un boton activo la funcion que quiero hacer de sumar y me de el resultado en un label no se si haya otro metodo mas facil de lograr lo que quiero

[edgar_prospero]

ya me ayudaron con mi problema solo era modificar una linea de codigo por lo siguiente

delphi

suma:= suma + StrToIntDef(StringGrid1.Cells[4,i+1], 0);

pero ahora mi problema es que nomas me suma 4 registros a ver si alguien puede echarme una mano con eso

[Wilson]

Te suma  solo 4 porque estabas trabajando en función de las columnas y no en función de las filas, cámbialo por esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  k, suma: integer;
begin
  suma := 0;
  for k := 0 to StringGrid1.RowCount - 1 do
    if k <= StringGrid1.RowCount - 2 then
      suma := suma + StrToIntdef(StringGrid1.Cells[4, k + 1], 0);
  Label7.Caption := intToStr(suma);
end;

Pregunto: Estás haciendo algo especial con la última fila? de no ser así la siguiente línea sobra

delphi

if k <= StringGrid1.RowCount - 2 then

Igualmente si tienes una fila de encabezado la variable K podría iniciar la iteración en 1 y no en cero.

Saludos

[edgar_prospero]

muchas gracias por tu ayuda wilson es justo lo que necesitaba si andaba un poco perdido jeje saludos 

[amell2020]

Favor explicarme el codigo que puso el amigo wilson yo estoy trantado de hacer lo mismo

esto es lo que tengo:

delphi

procedure TForm1.cantKeyPress(Sender: TObject; var Key: Char);
   var
    k, suma: integer;
begin
  if not(Key in ['0'..'9',#8]) then
 begin
 
if key = #13 then
 
begin
  agregar.SetFocus;
end;
 
if not(Key in ['0'..'9',#8]) then
 begin
  Key:=#0;
 
 
 
StringGrid1.Row := StringGrid1.Rowcount - 1; //No situamos sobre el ultimo registro (el nuevo)
StringGrid1.Cells[0, StringGrid1.Row] := cant.Text;
StringGrid1.Cells[1, StringGrid1.Row] := desc.Text;
StringGrid1.Cells[2, StringGrid1.Row] := prec.Text;
 
 
  suma := 0;
  for k := 0 to StringGrid1.RowCount - 1 do
    if k <= StringGrid1.RowCount - 2 then
      suma := suma + StrToIntdef(StringGrid1.Cells[4, k + 1], 0);
  sLabel3.Caption := intToStr(suma);
 
  StringGrid1.RowCount := StringGrid1.RowCount + 1;

[Wilson]

Amigo, entiendo que quieres  hacer algo al presionar la tecla enter; ¿Que es justo lo que quieres hacer?

Saludos.

[amell2020]

bueno quería agregar los campos que tengo en un stringgrid pero mejor usare el DBgrid conectado la base de datos y cuando guarde el registro le hago una consulta max registro y así hasta hora me esta funcionando, solo tengo unos problemas que si no encuentre la solucion, tratare de postear haber si me orientan en un post nuevo gracias wilson