¿Las instrucciones en el bloque Finally aún se ejecutan en este fragmento de código?

Question

¿Finalmente se bloqueará la ejecución? si paso la salida; ?

procedure someProc; 
begin 
    Try 
     Exit; 
    finally 
    do_something; 
    end; 
end; 

Answer 1

Sí, finally bloques siempre se ejecutan, incluso si se llama a Exit en alguna parte. No valdrían mucho si no se ejecutaran siempre.

Answer 2

Una aplicación de prueba rápida podría haber respondido a esta pregunta muy rápido.

program TestFinally; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

begin 
    try 
    WriteLn('Before exiting'); 
    Exit; 
    finally 
    WriteLine('In finally. If you see this, it was written after "Exit" was called'); 
    ReadLn; 
    end; 
end. 

Answer 3

El finalmente siempre se ejecutará cláusula, a menos que el subproceso en ejecución entra en un bucle no termina, bloques indefinidamente o se termina de manera anormal, mientras que la ejecución de la cláusula try.

Los estados pertinentes documentation (el énfasis es mío):

La sintaxis de una sentencia try ... finalmente es

try 
    statementList1 
finally 
    statementList2 
end 

donde cada statementList es una secuencia de instrucciones delimitados por punto y coma.

La declaración try ... finally ejecuta las instrucciones en statementList1 (la cláusula try). Si statementList1 finaliza sin generar excepciones, se ejecuta statementList2 (la cláusula finally). Si se produce una excepción durante la ejecución de statementList1, el control se transfiere a statementList2; Una vez que statementList2 termina de ejecutarse, la excepción se vuelve a generar. Si una llamada al procedimiento Salir, Pausa o Continuar hace que el control se salga de statementList1, statementList2 se ejecuta automáticamente. Por lo tanto, la cláusula finally se ejecuta siempre, independientemente de cómo finalice la cláusula try.

Answer 4

En aras de la exhaustividad - finalmente bloquear se no ejecutar si el proceso o subproceso en ejecución el bloque try..finally se termina con TerminateProcess/TerminateThread.

Por ejemplo, finalmente el bloqueo no se ejecutará en el código siguiente.

o := TObject.Create; 
try 
    TerminateThread(GetCurrentThread, 0); 
finally 
    o.Free; 
end;