8 respuestas en este tema

[coruxito]

Hola amigos,

Tengo una duda en Delphi que me siento estúpido de preguntarlo, pero la verdad no encuentro un buen material de como utilizar los típìcos bloques

delphi

Try
 
finally
 
Exception

Topé el siguiente código:

delphi

Screen.Cursor := crHourglass;
try
// a l g o r i tmo . . .
finally
Screen.Cursor := crDefault;
end;
except
on E: EDivByZero do . . .
end;

Pero lo que yo quiero es crear una Exception EValidaFecha, tengo una función que hace esa validación (me encantó como Delphi trabaja con fechas, MUY práctico e cada vez me gusta más como trabaja), pero el tema es que quiero hacer saltar una excepción que la cree yo.

De hecho no me está funcionando ni el típico:

delphi

try
// mi código
exception
  on E: Exception do
    ShowMessage('Error Inesperado');
end;

De hecho intenté inicialmente hacer el cast de StrToDate(fecha) y capturar el fallo por aí, pero como no salía nunca el mensaje, pues probé con las funciones.

Alguien tiene algún código con más de una excepción o si Delphi trabaja bien o no con las excepciones.

Saludos a todos !!!

[felipe]

Intenta de esta forma

delphi

try
  // Hacer esto
except
  raise exception.create('Error inesperado');
end;

Saludos!

[coruxito]

Hola Felipe,

Si aís me salta, pero es que cuando salta el error quiero hacer un bloque pequeño de código.
No logré hacerlo saltar aún.
Por eso preguntaba como trabajáis con bloques de excepciones en Delphi, soy nuevo con el lenguaje e programando tb.

[Sergio]

Para ejecutar un bloque usarías begin end:

delphi

try
  // Hacer esto
except
  on E: Exception do begin
      //Aqui tu bloque de código.
      //OJO: Evita siempre que de más errores tu código dentro de un bloque except!
      raise exception.create('Error inesperado: '+E.message);
  end;
end;

[coruxito]

Sergio,

Y si quiero controlar varias excepciones ? Unas que creo yo y otras ya en el Delphi por defecto ?
Es que a en algún formulario lo único que se me escapa es fecha, en otro es fecha y tb formato de número de teléfono (ese último voy hacerlo en un funcion/procedure por limitar zonas y cosas por el estilo).
Ah tb he descubierto que tengo que cambiar una opción de debug para que me salten mis excepciones.

[enecumene]

Hola!, por algo tenemos un buscador :

Metodo para crear ventanas de excepciones personalizadas

Saludos.

[ELKurgan]

Además, en el afamado libro "la cara oculta de delphi 4", del maestro Marteens, viene TODO un capítulo dedicado al tema de las excepciones, que te puede servir de mucha ayuda.

Saludos

[coruxito]

Gracias por el material que me habéis aportado, os juro que busque por "Excepciones" y por "Delphi Excepciones" y no había dado con ese material. De hecho suelo "googlear" mucho antes de venir hacer una pregunta. De hecho ya me sentía tonto por no topar algo que supongo que es muy utilizado tb en Delphi, pero la verdad no lo topé.
Gracias estudiaré el hilo que me facilitaste enecumene.

ELKurgan tengo un La Cara Oculta, pero no sé cual es la versión (no tiene un numero a parte del título), eso en papel, pero buscaré el que me comentaste por internet.

Abrazos y gracias a los dos !!!

[ELKurgan]

Hombre, la cara oculta de delphi 4 está en las descargas del foro, más concretamente, en http://www.delphiacc...sa=view;down=71

Un saludo