Excepciones - no va por el camino que quiero!!

[Patricio]

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

[dec]

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;

[Patricio]

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

[dec]

Hola,

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

[Neftali [Germán.Estévez]]

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).

[Patricio]

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