¿Cómo puedo saber si estoy en una pila de excepción de Delphi?

Question

Desde dentro de un bloque finally, ¿es posible decir que se ha producido una excepción?

Answer 1

se puede comprobar si se asignan ExceptObject o ExceptAddr . En la fuente de VCL esto se hace para el examen. en GIFImg.pas o jpeg.pas.

El siguiente código debe ser la salida

ExceptObject <> nil
ExceptObject = nil

y si se quita la excepción por supuesto

ExceptObject = nil
ExceptObject = nil

try 
    try 
     raise Exception.Create('Just an exception'); 
    finally 
     if ExceptObject <> nil then 
     WriteLn('ExceptObject <> nil') 
     else 
     WriteLn('ExceptObject = nil'); 
    end; 
    except 

    end; 
    if ExceptObject <> nil then 
    WriteLn('ExceptObject <> nil') 
    else 
    WriteLn('ExceptObject = nil'); 

Answer 2

Esto es una especie de hack, pero podrías intentar llamar a AcquireExceptionObject. Si se encuentra en un estado de excepción, obtendrá un valor de retorno; de lo contrario, obtendrá cero.

(. Si tuviste una, asegúrese de llamar ReleaseExceptionObject después)

Answer 3

yo sepa esto sólo se puede lograr con sentencias try anidadas:

Try 
    Try 
    ... 
    Except 
    ... 
    End; 
Finally 
    ... 
End