Le istruzioni nel blocco Finally vengono ancora eseguite in questo pezzo di codice?

Question

Alla fine si bloccherà l'esecuzione? se passo l'uscita; ?

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

Answer 1

Sì, finally blocchi eseguire sempre, anche se si chiama Exit da qualche parte. Non varrebbero molto se non fossero sempre eseguiti.

Answer 2

Un'app di prova rapida avrebbe potuto rispondere a questa domanda molto rapidamente.

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

L'infine viene sempre eseguito clausola, a meno che il filo di esecuzione entra in un ciclo non fatale, blocchi indefinitamente o è terminata in modo anomalo, mentre l'esecuzione della clausola try.

Le pertinenti documentation stati (sottolineatura mia):

La sintassi di un try ... finally è

try 
    statementList1 
finally 
    statementList2 
end 

dove ogni StatementList è una sequenza di istruzioni delimitato da punti e virgola.

L'istruzione try ... finally esegue le istruzioni in statementList1 (la clausola try). Se statementList1 termina senza generare eccezioni, viene eseguito statementList2 (la clausola finally). Se viene sollevata un'eccezione durante l'esecuzione di statementList1, il controllo viene trasferito a statementList2; una volta che statementList2 termina l'esecuzione, l'eccezione viene controrilanciata. Se una chiamata alla procedura Exit, Break o Continue fa sì che il controllo lasci statementList1, statementList2 viene eseguito automaticamente. Quindi la clausola finally viene sempre eseguita, indipendentemente da come termina la clausola try.

Answer 4

Per ragioni di completezza - finally sarà non eseguire se il processo o thread esecuzione del blocco try..finally è terminato con TerminateProcess/TerminateThread.

Ad esempio, il blocco finale non verrà eseguito nel codice riportato di seguito.

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