To/From Code

	Languages
BROWSEBYLANGUAGE Access VBA ASP Classic C# C++ C++/CLI Delphi Delphi Prism Java JavaScript ObjectPAL Perl PHP VB Classic VB.Net

	Categories
BROWSEBYCATEGORY +Tool Basics +Language Basics +Language Details +Data Structures +Statements +Operators +Commands +Database +OOP Basics +OOP Details

	Delphi Guides
Delphi To/From Conversion Guides Delphi and Access VBA Delphi and C# Delphi and C++ Delphi and C++/CLI Delphi and Delphi Prism Delphi and Java Delphi and JavaScript Delphi and ObjectPAL Delphi and Perl Delphi and PHP Delphi and VB Classic Delphi and VB.Net

Cross Ref Guide

DELPHILANGUAGE

Delphi

DELPHIANDASP CLASSICTOC

Overview

+Tool Basics

Report Tools Overview

+Language Basics

+Language Details

+Data Structures

Array

Associative Array

Pointers

+Statements

Exception Trapping◄╣

+Operators

+Commands

+OOP Basics

+OOP Details

	Members-Only
Sign in to see member-only pages.

► KB ► To/From Guides ► Delphi

Print This

Exception Trapping (Delphi and ASP Classic Cross Reference Guide)

By Mike Prestwood

Delphi versus ASP Classic: A side by side comparison between Delphi and ASP Classic.

Statements

Common statements such as if statements, loops, etc.

Exception Trapping

[Other Languages]

Languages Focus

A common usage of exception handling is to obtain and use resources in a "try-it" block, deal with any exceptions in an "exceptions" block, and release the resources in some kind of "final" block which executes whether or not any exceptions are trapped.

Delphi: try..except, try..finally

Use a try..except..end block to trap and process errors.

Delphi also offers a try...finally where code will execute in the finally section no matter what. It's common to put a try..except inside a try..finally.

Syntax Example:

var
  y : Double;
begin
  try
    y := 0;
    y := (1/y);
    ShowMessage(FloatToStr(y));
  except
    ShowMessage('You cannot divide by zero.');
  end;
end;

ASP Classic: On Error

Syntax Example:

On Error Resume Next
  Response.Write FormatDateTime(f_CurrentActualDate, vbShortDate)

  If ErrNumber <> 0 Then
    Break(f_CurrentActualDate)
  End If
On Error Goto 0

Using On Error Resume Next