Excepciones - no va por el camino que quiero!!
 

Hola a todos tengo un pequeño problema

quiero que cuando se produzca un error realice una tarea en especial pero no va por el camino que quiero, seguramente debe ser algo simple, el codigo es algo asi

Código Delphi [-]
var
a:integer;
try
  a := StrToInt(Edit.text)
except
  EConvertError: message(..)
end;

pero no entra nunca al EConvertError, directamente salta el error de Widnows y listo.

Saludos

Hola,

Algo así debería irte bien:

Código Delphi [-]
 var
   i: integer;
 begin
   try
     i := StrToInt(Edit1.Text);
   except
     on E: EConvertError do
       ShowMessage('Error: ' + E.Message);
   end;
 end;

Algo asi tengo y nada
 

Algo asi tengo, ya que lo saque de la ayuda de Delphi 5 pero no funca. Vos eso lo tenes funcionando?

Hola,

Sí. Así es. Lo he probado y funciona como se espera. :)

Puedes hacer la siguiente prueba:

Código Delphi [-]
  var
   i: integer;
 begin
   try
     i := StrToInt(Edit1.Text);
   except
     on E:Exception do begin
       ShowMessage('Error: ' + E.Message + '  ClassName: ' + E.ClassName);
     end;
   end;
 end;

Con eso deberías saber si estás capturando la Excepción del tipo correcto (EConvertError).

no funca
 

Hice lo que me pusieron y no anduvo, no llega a la sentencia que pongo:

on E:EConvertError do. ...

directamente aparece una ventana diciendo que no es una buena conversion

No tendre que activar algo? ese codigo lo tengo que poner en algun lado en especial?

Saludos

Si estás depurando tu aplicación desde el IDE, cuando surge una excepción, delphi primero muestra su cuadro de mensaje con el error, al darle Aceptar y luego F9, entonces tu aplicación, si está capturando la excepción, debe hacer lo indicado en tu código.

Verifica esto que te comento.

Si no es eso, entonces sería bueno que pongas parte del código que dices que no funciona como deseas.


Saludos...

estas en lo correcto
 

paso eso que me decis, mostro la ventana y despues si me hizo lo que puse en el except

ahora como puedo hacer para que no muestre esa primer ventana y directamente haga lo que puse en el Excep primero?

saludos

Hola,


Puede que esto te sirva: Menú -> Tools -> Debugger Options -> Language Exceptions -> [X] Stop on Delphi Exceptions.

En realidad tienes que dejar esa casilla en blanco. Ahora mismo la tienes marcada.

Hola,


Así es la verdad Lepe. Lo dejé así para dar a entender que se trataba de un "TCheckBox", pero, efectivamente, también podía haberlo dicho y haberla dejado desmarcada, que es lo suyo, para lo que se pretende conseguir, y eso si no me equivoco. ;)

Impresionante!!
 

muchachos funco de maravillas, de diego ;)

Muchas Gracias

Saludos