Try
From Free Pascal wiki
Jump to navigationJump to search
│
Deutsch (de) │
English (en) │
español (es) │
suomi (fi) │
русский (ru) │
Back to Reserved words.
The reserved word try is part of either a try..finally block or a
try..except block.
If an exception occurs while executing the code between try and
finally, execution resumes at finally. If no exception occurs, the code between finally and
end will be executed also.
try
// code that might generate an exception
finally
// will always be executed as last statements
end;
Whenever an exception occurs, the code between except and end will be executed.
try
// code that might generate an exception
except
// will only be executed in case of an exception
on E: EDatabaseError do
ShowMessage( 'Database error: '+ E.ClassName + #13#10 + E.Message );
on E: Exception do
ShowMessage( 'Error: '+ E.ClassName + #13#10 + E.Message );
end;
To handle exceptions with an except block and also run a finally block, nest one try block in another.
try
try
// code dealing with database that might generate an exception
except
// will only be executed in case of an exception
on E: EDatabaseError do
ShowMessage( 'Database error: '+ E.ClassName + #13#10 + E.Message );
on E: Exception do
ShowMessage( 'Error: '+ E.ClassName + #13#10 + E.Message );
end;
finally
// clean up database-related resources
end;