Si quieres más información sobre el error puedes agregarla al mensaje de la exceción
Código Delphi
[-]
for renglones:=0 to 3 do
begin
for columnas:=0 to 2 do
begin
try
totmes[columnas] := totmes[columnas] + strtofloat(StringGrid1.Cells[renglones,columnas]);
except
on e:Exception do
begin
if (Trim(StringGrid1.Cells[renglones,columnas]) = '') then
ShowMessage('No puedo convertir el valor del renglon '+IntToStr(rengloses)+ 'y columna '+IntToStr(columnas)+' porque esta vacio');
else
ShowMessage('No puedo convertir el valor '+ StringGrid1.Cells[renglones,columnas] + ' del renglon '+IntToStr(rengloses)+ 'y columna '+IntToStr(columnas));
totmes[columnas] := 0;
end;
end;
end;
end;