Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 710 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado
  try
    try
      if UnFunPro.Empresa_Mais_Armazem(FPrRomEmb.OraDsRomaneCD_EMPRES.Value) = 'N' then
        Exit;

      listaDeArmazens := TStringList.Create;
    
	  ... 	
	
	finally
      listaDeArmazens.Free;
    end;
  except
    on E:Exception do begin
      raise Exception.Create(E.Message);
    end;
  end;

Então o que acontece é que ao dar o EXIT, cai no finally é provoca um exception, por nao ter dado um create.
Até ai tudo normal.
Fato curioso é que ao compilar o delphi 10.2 em modo 64 bits, acusa o erro. 

Porem ao compilar em 32 bits o erro é ignorado e rotina segue normalmente sem gerar exception.

Então minha pergunta é a seguinte, tem alguma confirguração no delphi que ignorada esse tipo de exception?

  • Moderadores
Postado

sim existe e é só olhar em configurações pois está ignorando as exception

mas uma coisa que não pude deixar de notar é a palavra até ai tudo normal. creio que não é normal pois como está feito o código está errado então não seria normal

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

  • Este tópico foi criado há 710 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.