Using fpc 3.0.4, Lazarus 2.0, the following simple program
program tryfinally;
begin
try
Writeln('before finally');
finally
Writeln('inside finally. Before Exit');
exit; //<----why isn't it executed?
end;
Writeln('after try finally block');
end.gives
P:\RAM64>tryfinally.exe
before finally
inside finally. Before Exit
after try finally block
I have tried putting the try finally block inside a procedure, the same happened.
program tryfinally;
procedure Test;
begin
try
Writeln('before finally');
finally
Writeln('inside finally. Before Exit');
exit;
end;
Writeln('after try finally block');
end;
begin
Test;
end.Dennis