Erro no Try/Except
12/12/2005
0
Estou com um problema, coloquei em uma parte do código fonte do programa um try except para verificar se o conteúdo de um edit eh string ou integer(Código abaixo):
Try StrToInt(edtBusca.Text); qryConsulta.ParamByName(´CODIGO´).AsString := ´¬´ + edtBusca.Text; Except qryConsulta.ParamByName(´CODIGO´).AsString := edtBusca.Text + ´¬´; End;
Acontece o seguinte: chega até a função StrToInt e para lá sai de tudo como se eu não tivesse digitado nada !!!!! :?: :?: :?:
Não sei mais o que fazer Alguem tem alguma sugestão???
Desde já Obrigado.
Alexferri
Posts
12/12/2005
Eniorm
var inteiro : integer; ... try inteiro := StrToInt(edBusca.Text); qryConsulta.ParamByName(´CODIGO´).AsInteger := inteiro ...
vc pode tbm mudar o ParamByName(´CODIGO´).AsInteger para:
qryConsulta.ParamByName(´CODIGO´).AsString := edConsulta.Text; ...
para isso vc deve mudar o SQL:
... FROM TABELA WHERE CAMPO LIKE :PARAMETRO
assim não havera erro caso o valor de edConsulta.Text for letras,...
abraço
12/12/2005
Alexferri
só que sai do try except no strtoint, sai e não da erro nenhum.
c sabe o q eh isso sai sem da erro nenhum ???
Valeu pela resposta.
12/12/2005
Adriano Santos
Vc não tem nenhum componente ou função que esteja desviando o evento de erro? Tente fazer o seguinte.
Antes do StrToInt jogue o codigo:
Application.onException := nil;
12/12/2005
Massuda
12/12/2005
Alexferri
Clique aqui para fazer login e interagir na Comunidade :)