Como cancelar o restante das opera��es ap�s uma exce��o?

Question

Caros amigos,Tenho um procedimento que quero torn�-lo p�blico. Ele ser� chamado quando ocorrerem algumas exce��es, mas desejo saber se existe algum comando, sem ser o EXIT, que eu possa colocar nele p...

Sourcecode · Answer

Use Abort;...

Alex Maia · Answer

N�o funcionou amigo. Tem outra forma?...

Paullsoftware · Answer

sendo assim crie uma vari�vel tipo...
var
a,b:Integer;
wErro:Booloean
begin
wErro := False;
Try
a := StrToInt(�1,5�);
b := 10;
ShowMessage(IntToStr(a+b));
Except
on msg : Execption do
begin
ShowMessage(�Ocorreu um Erro�);
wErro := True;
end;
if Not wErro then
begin
//Continuo com a execu��o...
end;

veja se assim funciona! :wink:

Paullsoftware · Answer

[b:26198bfe11]A RESPOSTA ANTERIOR FICOU SEM O �[C O D E ]�[/b:26198bfe11]
sendo assim crie uma vari�vel tipo...

var
a,b:Integer;
wErro:Booloean
begin
wErro := False;
Try
a := StrToInt(�1,5�);
b := 10;
ShowMessage(IntToStr(a+b));
Except
on msg : Execption do
 begin
 ShowMessage(�Ocorreu um Erro�);
 wErro := True;
 end;
if Not wErro then
 begin
 //Continuo com a execu��o...
 end;

veja se assim funciona! :wink:

Marco Salles · Answer

[quote:3702d28833]Tenho um procedimento que quero torn�-lo p�blico. Ele ser� chamado quando ocorrerem algumas exce��es, mas desejo saber se existe algum comando, sem ser o EXIT, que eu possa colocar nele para cancelar outras opera��es que existam depois de um bloco Try...Except. [/quote:3702d28833]tercnicamente a maneira correta e usar um flag com sugerifo pelo paulo , mas com dois try aninhados.. Assim evita varios incovenientes , e temos  a garantia que o boloco final sera sempre executado.[code:1:3702d28833]var Verro:Boolean;begintry  try    Verro:=False;    //  except    on Exception do      begin        //      end;  end;finally  if Verro Then    //end;[/code:1:3702d28833]...

F�rum Como cancelar o restante das opera��es ap�s uma exce��o? #314743