Buscar por:

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

Código

{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;