Problema con SysUtils.Abort
 

Hola,
tenía entendido que el procedimiento Abort de la unidad SysUtils permitía abortar la ejecución del código pero tengo una parte de código que se continua ejecutando después de ejecutar este procedimiento.

¿Por qué ocurre esto y como puedo evitarlo? ¿ Tiene algo que ver con la cola de mensajes que quedan pendientes de lanzar?

Muchas gracias por su ayuda

El procedimiento Abort simplemente eleva una excepción de tipo EAbort. De tal manera que si un except la captura, el programa continuará su ejecución normal (como es de esperar).

Esto seguramente se entiende mejor con un ejemplo:

Código Delphi [-]
  Procedure TForm1.Proc1;

  Begin
    try
      EstoSiSeEjecuta;
      SysUtils.Abort;
      EstoNoSeEjecuta;
    except
      ;
    end;
    EstoSiSeEjecuta;
  end;

Hasta luego.

;)

Abort es un Exception silencioso. Si en tu código tienes algún try se ejecutará el código del except o del finally. Si es un except y no haces un raise dentro de este, se ejecutará el código siguiente a este fragmento de código.

Saludos!

Muchas gracias por su ayuda. Efectivamente, tenía el código que llama a la función que a su vez llama a la función del SysUtils.Abort dentro de un try...exceptSaludos.