Qual a melhor forma de tratar o código?

Delphi

14/02/2008

Tenho o seguinte código

procedure Valida
begin
  
  IF Condicao THEN
     //Chama funcao
     Func1;
 
 Linha 1
 Linha 2

END;

procedure Func1....
begin
  try
      MSG;
  except
      Exit;
  end;
end;


Minha dúvida é a seguinte, como faço para sair do código na procedure Valida, se no exception de Func1 for exit?

vlw!!!


Luiz_aquino

Luiz_aquino

Curtidas 0

Respostas

Rodc

Rodc

14/02/2008

Usa function ao invés de procedure e retorne um boolean dizendo se a função teve sucesso.
Ou deixe a excessão propagar para a chamada anterior.


GOSTEI 0
Pestana_

Pestana_

14/02/2008

tente assim:

procedure Valida 
begin 
  
  IF Condicao THEN 
     //Chama funcao 
     if not Func1 then
       exit;
  
 Linha 1 
 Linha 2 

END; 

function Func1.... : boolean;
begin
  Result := false; 
  try 
      MSG; 
      Result := true;
  except 
      Exit; 
  end; 
end;


flw.


GOSTEI 0
Marco Salles

Marco Salles

14/02/2008

ja tentou trocar o exit pelo [b:d37a7a81cd]abort;[/b:d37a7a81cd]



GOSTEI 0
Dor_poa

Dor_poa

14/02/2008




GOSTEI 0
POSTAR