Como capturo una Except en particular?

[danytorres]

Hola a todos los del foro. la duda que tengo es referente a como capturar una excepcion les esplico el caso tengo DBedit que esta pegado a un campo de una tabla dicho campo tiiene una mascara que es la siguiente !0000000000;0;_ esta mascara lo que hace es que tiene que meter 10 digitos cuando introduce menos de 10 ejecuta el siguiente error EDBEditError. Como capturo este error, yo lo intente de esta manero en el evento OnExit del DBEdit coloco el siguiente codigo;

Code
___________________________________________
procedure TGuia.DBEdit1Exit(Sender: TObject);
begin
Try


Except on EDBEditError do
begin
Application.MessageBox( ' Introdusca el número de Guia completo', ' Número de Guia');
end;
end;
end;
________________________________________

Pero no hace nada. Gracias a quien pueda ayudarme.


___________________
Un saludo a todos...

[delphi.com.ar]

Tienes que tener en cuenta que en un bloque Try...Except solo se capturarán los errores producidos dentro de este bloque, para lo que vos querés te recomiendo hacer que el MaskEdit no requiera siempre el valor, cambiando la máscara por '!99999999999;9;_' y validarlo en el OnExit, o utilizar otro tipo de componente.

Saludos!

[gesjug]

reavivo este tema porque me pasa como a el.
Yo no quiero un MaskEdit porque quiero usar un DBEdit enlazado con la BD.
Solo necesito capturar ese error para que muestre el mensaje que yo quiero.
¿Como podria hacerlo?

[jarr-o]

Una vez tuve un problema similar y buscando en la red encontre un documento en pdf que se llamaba excepciones en delphi donde venia bastante informacion del tema y bien explicada, te lo recomiendo,
seguro que ahi encuentras lo que estas buscando

[juanelo]

Empezado por jarr-o

Una vez tuve un problema similar y buscando en la red encontre un documento en pdf que se llamaba excepciones en delphi donde venia bastante informacion del tema y bien explicada, te lo recomiendo,
seguro que ahi encuentras lo que estas buscando

No dudo que el docto que hallaste sea muy bueno, pero si no das una referencia de donde los pueda leer, pues se queda en un buen intento de ayuda.

[jarr-o]

Empezado por juanelo

No dudo que el docto que hallaste sea muy bueno, pero si no das una referencia de donde los pueda leer, pues se queda en un buen intento de ayuda.

Bueno si tienes razon lo que pasa es que eso fue hace algun tiempo y no tenia la informacion pero busque de nuevo y aqui esta la direccion http://zarza.fis.usal.es/~fgarcia/do...bajos/S2T5.pdf
espero te sea util

[juanelo]

Empezado por jarr-o

Bueno si tienes razon lo que pasa es que eso fue hace algun tiempo y no tenia la informacion pero busque de nuevo y aqui esta la direccion http://zarza.fis.usal.es/~fgarcia/docencia/poo/01-02/trabajos/S2T5.pdf
espero te sea util

Muchas gracias por el tiempo que has invertido en la liga, de seguro que a mas de uno le será de utilidad.
Saludos

[[Al González]]

¡Hola!

Empezado por danytorres

...

Código Delphi [-]
Application.MessageBox( ' Introdusca el número de Guia completo', ' Número de Guia');

...

También te aconsejo cuidar la ortografía y la gramática de los mensajes que tu aplicación muestra en pantalla. Algunos usuarios te recomendarán o descalificarán solamente por ese aspecto.

Código Delphi [-]
  Application.MessageBox ('Introduzca el número de guía completo.',
    'Número de guía');

(introduzca con zeta, guía con ge minúscula y acento en la i, punto al final de la oración).

En el mejor de los planes y por experiencia propia.

Un abrazo de usuario.

Al González.