Pesquisa em campo integer com TEdit

Question

Ol� Pessoal... estou com um probleminha aki..tenho uma tabela (postgresql).. e nela tenho um campo integer.... e no form do delphi tenho um TEdit comum.... onde o usu�rio pode digitar tanto letras qua...

Araujojunior · Answer

var  I: Integer;begin  try    I := Edit.text; except    on E: Exception do      showmessage(�Valor invalido � + E.Message);  end;esse E.Message vai mostrar o erro...

Beto_martini · Answer

Vc. tambem pode tratar a entrada de dados no edit.

Um exemplo bem did�tico:

No evento OnKeyPress do edit insira o c�digo

Var numeros:string;
begin
numeros:=�0123456789�;
if pos(key,numeros)<1 then
begin
key:=#0;
end;
end;

Com este c�digo o edit s� aceitar� os d�gitos num�ricos.

Marco Salles · Answer

antes de voce proseguir com a pesquisa fa�a isso:[code:1:c3abaf742c]if StrToInt(edit1.text) Thenbeginsua pesquisa....endelse inform que contem Letras no Edit[/code:1:c3abaf742c]...

Marco Salles · Answer

Desculpe amigo ...Troque :[quote:79c597bc92]if StrToInt(edit1.text) Then begin sua pesquisa.... end else  inform que contem Letras no Edit[/quote:79c597bc92]por[quote:79c597bc92]varnp:integer;beginif TryStrToInt(edit1.Text,np) thensua opesquisa , mas em alguns casos � conveniente trocarquery.parambyname(�parametro�).value := TEdit.Text porquery.parambyname(�parametro�).asinteger := np;etc...endelseinforme que contem Letras no Edit[/quote:79c597bc92]Agora sim :lol:  :lol:...

Pestana · Answer

Thiago Coleti as dicas dos colegas d�o certo, mas ai vai mais uma dica,

na minha opni�o eu utilizaria MaskEdit enves do Edit, com isso vc acrescentaria mascar� nos campos que � do tipo integer ou qualquer outro tipo de campo que prescise.

no evento onEnter do MaskEdit vc definiria as mascaras, por ex.:

procedure TfrmPesq.MaskEditEnter (Sender : TObject);
begin
mskedtPesq.Clear;
if cmboxCampo.Text = �CNPJ� then // caso vc esteja utilizando um combobox que comtem os campo da tabela.
mskedtPesq.EditMask := �99.999.999/9999-99;0;_�
else
if cmboxCampo.Text = �CPF� then
mskedtPesq.EditMask := �999.999.999-99;0;_�
else
mskedtPesq.EditMask := ��; // para campos que n�o prescisem de mascar�.
end;

procedure TfrmPesq.MaskEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
Pesquisar(mskedtPesq.Text); // chama a rotina de pesquisa e envia o parametro.
end;

qualquer coisas posta ai,

flw.

Thiago Coleti · Answer

Ol� amigos... muito obrigado pela ajuda de vcs...por enquanto testei somente a id�ia do araujojunior... mais vou testar as outras alternativas e qualquer coisa volto posta..muito obrigado.....

F�rum Pesquisa em campo integer com TEdit #331571