Jak mogę sprawdzić, czy znajduję się w stosie wyjątków Delphi?

Question

Z poziomu bloku finally można powiedzieć, że został zgłoszony wyjątek?

Answer 1

Można sprawdzić, czy ExceptObject lub ExceptAddr są przypisane . W źródle VCL odbywa się to do egzaminu. w GIFImg.pas lub jpeg.pas.

Poniższy kod powinien wypisać

ExceptObject <> nil
ExceptObject = nil

a jeśli usunąć wyjątek to oczywiście

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

To jest rodzaj hackowania, ale można spróbować wywołać AcquireExceptionObject. Jeśli jesteś w stanie wyjątku, otrzymasz wartość zwracaną, w przeciwnym razie otrzymasz zero.

(. Jeśli nie dostać jeden, upewnij się, aby zadzwonić ReleaseExceptionObject potem)

Answer 3

AFAIK ten można osiągnąć tylko z zagnieżdżonych instrukcji try:

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