Uso de escepciones en delphi

titooo · #1 02-05-2013

Buenas, les comento mi problema, necesito mostrar en un "edit" la descripcion correspondiente de un codigo ingresado por el usuario en tiempo de ejecucion a medida que el usuario los ingresa. Estos datos se encuentran almacenados en tablas SQL a los cuales tengo acceso a traves de metodos que ya eh creado.

Código Delphi [-]begin
if (existe_sit_iva(validar_sit_iva,strtoint(edit4.Text))=false) or (edit4.Text=emptystr)
then
    edit5.Text:='error'
else
     edit5.Text:=mostrar_desc(mostrar_descri,strtoint(edit4.Text));
end;

Este es el trozo de codigo en donde valido que el codigo que ingreso el usuario es correcto o no. Ahora, mi problema:

*Cuando en primer momento ingreso un valor correcto de codigo: la descripcion aparece correctamente.
*Cuando en primer momento ingreso un valor incorrecto: el programa se detiene.
*Cuando ingreso un valor correcto pero presiono el boton de borrar en el teclado (generando el campo vacio): el programa se detiene.
*Cuando valido si el codigo ingresado es el campo en blanco: directamente no realiza ninguna accion.

Espero haberme explicado bien, cualquier cosa que no entiendan diganme y tratare de aclarar. Me han comentado que puedo solucionarlo con el uso de escepciones pero no se utilizarlas. Si conocen alguna manera alternativa para la solucion agradeceria su respuesta. Saludos!

cloayza · #2 02-05-2013

Bueno a ver si te puedo ayudar...Mirando el código que escribiste puedo ver que requieres valida el contenido del Edit4 y este debe ser un valor numérico...

Bueno para ello podría quedar así...

Código Delphi [-]var
   Valor:Integer;
begin
        //TryStrToInt intenta trasformar el valor string a numero entero...Si hay exito devuelve True, de lo contrario False;
       if Not TryStrToInt(edit4.Text,Valor) then
          Exit;
       //Uso de Exception...
      Try
          if (existe_sit_iva(validar_sit_iva,Valor)=false)  then 
             edit5.Text:='error'
          else
             edit5.Text:=mostrar_desc(mostrar_descri,Valor);
      except //para cualquier error que se produsca...
           raise Exception.Create('Mostrar_Texto_Error');
      end;
end;

Variante...

Código Delphi [-]var
   Valor:Integer;
begin
       if Not TryStrToInt(edit4.Text,Valor) then
          Exit;

      Try
          if (existe_sit_iva(validar_sit_iva,Valor)=false) then
             edit5.Text:='error'
          else
             edit5.Text:=mostrar_desc(mostrar_descri,Valor); 
      except 
            on E:Exception do Showmessage( E.Message );
      end;
end;

Busca en la ayuda Exceptions, raise, try
Saludos cordiales