Controle De Erros

[gildo]

Olá Amigos.

Pelo pouco que sei, para controlar exceções no delphi, isto é, evitar que o programa pare ao emitir mensagens de erro, bastaria utilizar a seguinte estrutura:

try

// O código que você quer controlar o erro

except

// O que deve ser feito caso aconteça o erro

end;

Mas está acontecendo, quando verifico se uma string contém números, utilizando a função abaixo descrita, que quando vai executar o comando StrToInt o programa, caso a string tenha letras, pára e mostra a mensagem de erro EConvertError. Como faço para que isto não ocorra, isto é, que o programa não pare com a citada mensagem de erro?

function StrIsInteger(const S: string): boolean;

begin

try

StrToInt(S);

Result := true;

except

Result := false;

end;

end;

Obrigado.

[Micheus]

pára e mostra a mensagem de erro EConvertError. Como faço para que isto não ocorra, isto é, que o programa não pare com a citada mensagem de erro?

Isto não estaria apenas ocorrendo no ambiente de desenvolvimento? Tipo, se você executar o programa gerado pelo delphi (fora dele) provavelmente não ocorrerá o erro. Já testou?

[gildo]

É isto mesmo. O problema acontece apenas no ambiente de desenvolvimento.

Obrigado Micheus.

[s3c]

Vá em: Tools/Debugger Options/Language Exceptions; clique em Add, digite EConvertError, clique em Ok e Ok

[CorN_Sk8]

porque voce não usa if TryStrToInt(N) ?

Obs:

Você pode usar o Try de outra forma:

  try

  except on E: Exception do
    begin
      ShowMessage(E.Message);
    end;
  end;