sumar columna de StringGrid
 

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

Código 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);

Tienes una celda en blanco, sin valores.

pues segun yo no hay celda en blanco como puedo hacer para identificarla si es que hay o hay alguna forma de evitar que me salga ese error en algun lugar lei que con un intdef pero al querer aplicarlo aqui no me deja

Hola Edgar.

Cambia esta línea:

Código Delphi [-]
    suma:=suma+ StrToInt(StringGrid1.Cells[4,i+1]);

Por:

Código Delphi [-]
    suma:= suma + StrToIntDef(StringGrid1.Cells[4,i+1], 0);

Saludos.

excelente respuesta ya con esto no me marca el error pero ahora tengo otro problema solo me suma 4 registros aun y ponga 6 o mas registros nomas me suma 4 alguna idea del porque no me suma mas?

Pero, ¿estás sumando filas o columnas?

son columnas las que estoy sumando pero solo me suma la columna que quiero de los 4 primeros registros que entran

Ok, entonces creo que estás sumando la columna 4 solamente, ¿no?

Si mal no recuerdo, el stringgrid es [columna, fila]

Código Delphi [-]
suma:=suma+ StrToInt(StringGrid1.Cells[4,i+1]);

es que tengo varias columnas que son cantidad, codigo, descripcion, importe y total los cuales voy llenando en el stringgrid y yo lo que quiero que me de es el total de total valga la rebundancia entonces de esa columna con el codigo que puse nomas me suma las primeras 4 ya de la quinta en adelante ya no las toma en cuenta