Durante a execução de uma aplicação é muito comum ocorrer erros que acabam atrapalhando sua execução, tais erros são denominados exceções. Por exemplo, temos uma função responsável em dividir dois valores, exemplificada abaixo:
function Divisao(Valor1,Valor2: Double): Double;
begin
Result := Valor1/Valor2;
end;
Se atribuirmos ao parâmetro Valor2 o numero 0, irá ocorrer uma exceção e uma mensagem será exibida.
A mensagem nos informa que ocorreu uma exceção do tipo "EZeroDivide" com a mensagem "Floating point division by zero" (Divisão de ponto flutuante por zero), ou seja, tentamos dividir um valor por zero, o que na matemática é uma operação indeterminada.
O problema é que na maioria das vezes tais exceções provocam o encerramento da aplicação de forma brusca, que é muito desagradável, principalmente quando seu programa exige que determinadas informações sejam atualizadas, como salvar alterações feitas em bancos de dados. Para resolver este problema podemos utilizar a classe Exception, através das cláusulas try...except...end, de acordo com a sintaxe abaixo:
try
//Insira aqui o bloco de comandos
except
//Insira aqui o bloco de comandos que deverá ser executado caso ocorra alguma
//exceção no código acima
end;
Você também pode usar o bloco try...finally...end:
try
//Insira aqui o bloco de comandos
finally
//De forma análoga, insira aqui o bloco de comandos que deverá ser executado caso
//ocorra alguma exceção ou interrupção (exit / abort) no código acima
end;
Antes de prosseguirmos vamos conhecer um pouco mais a classe Exception.
A classe Exception é codificada na Unit SysUtils, é derivada da classe TObject e compõe a classe-base para todas as outras que manipulam exceções. Uma curiosidade é que a classe não segue o padrão do Delphi, onde o nome das classes deve ser precedido pela letra "T". Ela possui dois campos internos:
- um deles é o FMessage, um campo do tipo string(texto) que define a mensagem que será exibido na caixa de diálogo quando a exceção é gerada.
- o outro é o FHelpContext, do tipo integer(inteiro) que guarda o índice que identifica o tópico do arquivo help on-line associado a essa classe.
Voltando a nossa função "divisao", podemos tratá-la da seguinte forma:
function Divisao(Valor1,Valor2: Double): Double;
begin
try
Result := Valor1/Valor2;
except
ShowMessage('Valores incorretos!');
end;
end;
Também podemos verificar qual o tipo de exceção foi gerado, usando o comando:
on < tipo de exceção> do
Dessa forma é possível definir um bloco de comandos para cada exceção que sua aplicação possa gerar, permitindo um tratamento individual. Poderíamos redefinir a função como abaixo:
function Divisao(Valor1,Valor2: Double): Double;
begin
try
Result := Valor1/Valor2;
except
on EZeroDivide do
ShowMessage('Divisão por zero!');
end;
end;
Abaixo segue uma tabela com algumas exceções, claro que existe um número muito maior e é impossível lista-las. O objetivo desse artigo foi introduzir os conceitos referentes à classe Exception para quem nunca teve contato com ela.
Exceção | Significado |
EZeroDivide | Divisão de um número real por zero |
EDivByZero | Divisão de um número inteiro por zero |
ERangeError | O limite de um número inteiro foi excedido |
EIntOverFlow | O limite do resultado de uma operação com número inteiro foi excedido |
EOverFlow | O limite do resultado de uma operação com numero real foi excedido |
EInvalideOp | Operação inválida |
EAccessViolation | Acesso violado |
EDataBaseError | Erro genérico no banco de dados |
EDBEngineError | Problema com a BDE |
EOutOfMemory | Memória insuficiente
|
Você pode conferir mais sobre o uso dos comandos Try..Except e Try..Finally nesta série de artigos feita pelo João Marcos:
Try..Except..Finally - Parte 01
Try..Except..Finally - Parte 02
Try..Except..Finally - Final
