Erro no Try/Except

Question

Falaeee galera..... blzra.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): [code:1:99...

Eniorm · Answer

Ol�, a fun��o StrToInt RETORNA um inteiro a partir de uma string, ent�o vc deve usar assim

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

Alexferri · Answer

E ai blz, Cara a minha inten��o de colocar desse jeito eh a seguite, se der erro o �� do sql vai muda de lugar entendeu para que se eu digita um codigo o parametro fica assim ��123� e se for letras ficara assim ��abc�.

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.

Adriano Santos · Answer

[quote:e4da093a8f=�alexferri�]E ai blz, Cara a minha inten��o de colocar desse jeito eh a seguite, se der erro o ��� do sql vai muda de lugar entendeu para que se eu digita um codigo o parametro fica assim ��123� e se for letras ficara assim ��abc�.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.[/quote:e4da093a8f]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:[code:1:e4da093a8f]   Application.onException := nil;[/code:1:e4da093a8f]...

Massuda · Answer

[quote:33367c1a2d=�alexferri�]...fica assim ��123� e se for letras ficara assim ��abc�.[/quote:33367c1a2d]O c�digo que voc� postou, no caso de n�o ser um n�mero, resulta em �abc��; se o campo estiver vazio, acho que seu c�digo retorna apenas ���. Se voc� estiver executando passo-a-passo, acho que a IDE n�o ir� pular para o c�digo entre o except...end, mas esse c�digo � executado....

Alexferri · Answer

VALEU GALERA ERA ISSO MESMO O PASSO A PASSO N�O ENTRAVA ENTRE O EXCEPT E O END, MAS TAVA EXECUTANDO VALEW MEMO FLW... :D...