GARANTIR DESCONTO

Fórum Qual a melhor forma de tratar o código? #353671

14/02/2008

0

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

Responder

Posts

14/02/2008

Rodc

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.


Responder

Gostei + 0

14/02/2008

Pestana_

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.


Responder

Gostei + 0

15/02/2008

Marco Salles

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



Responder

Gostei + 0

15/02/2008

Dor_poa




Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar