Delphi dicas

Como fazer funcionar o tratamento de exceçoes no delphi 7

{Dica para utilização do Try except no delphi:

É necessário que o delphi esteja configurado para não parar ao perceber uma tentativa de deletar um registro que esteja relacionado com outras tabela ou seja mesmo você fazendo todo o código do try ... except corretamente ao compilar o programa ele vai dar erro... pra isso não acontecer basta entrar em tools + debug options e desmarcar a opção stop on delphi exceptions e tudo ira funcionar normalmente.

veja o exemplo abaixo:}



procedure TFormCadProdutos.BtnExcluirClick(Sender: TObject);

begin

        if MessageDlg('Excluir o Registro Selecionado?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

        begin

                try

                TbProd.delete;

                estado :='B';

                botoes;

                habilita;

                ShowMessage('Excluido com Sucesso !!');

                except

                on E: EDBEngineError do

                begin

                        ShowMessage('Produto Relacionado, exclusão Não Permitida !!');

                        TbProd.Cancel;

                end;

        end;

end

else

Abort;

end;