Como parar um 1º processo qdo. o 2º processo causa exceção ?

Delphi

04/09/2003

Olá pessoal,

Existe alguma forma de interromper um primeiro processo quando o segundo processo causa uma exceção ?

Por exemplo :

procedure processo_1;
begin
linha 1
linha 2
linha 3
processo_2; (chamei o processo_2)
linha 4 (como não permitir que as linhas de 4 à 6 sejam executadas
linha 5 caso ocorra uma exceção no processo_2 ?)
linha 6
end;

procedure processo_2;
begin
try
...
...
except
... (tratei a exceção)
end;
end;

se alguém puder me ajudar, desde já agradeço...


Vinicius2k

Vinicius2k

Curtidas 0

Respostas

Cebikyn

Cebikyn

04/09/2003

Tente:

var
  Erro: boolean;

procedure processo_1;
begin
  linha 1
  linha 2
  linha 3
  Erro:= false;

  processo_2;

  if Erro then
    Exit;

  linha 4 
  linha 5 
  linha 6
end;

procedure processo_2;
begin
  try
    ...
    ...
  except
    Erro := true;
    ... 
  end;
end;



GOSTEI 0
Vinicius2k

Vinicius2k

04/09/2003

putz... tava na cara... :shock:

valeu cebikyn :wink:

t+


GOSTEI 0
POSTAR