Ver Mensaje Individual
  #8  
Antiguo 10-02-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.737
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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
            {Si falla te mostrara el valor del StringGrid y pondrá el valor a 0}
            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;
Responder Con Cita