Funcionou!
Segue o comando:
procedure TfMEs.Button1Click(Sender: TObject);
begin
if not Table1.Locate('matricula', StrToIntDef(EDit1.Text,0), [])then
begin
ShowMessage('ME não Encontrado.');
Edit1.Clear;
Edit1.SetFocus;
end;
Grato.
.Rafael Souza.
===========================
"[EMAIL PROTECTED]" <[EMAIL PROTECTED]> wrote:
errei!!! corrigindo, seria:
if Table1.Locate('matricula', StrToIntDef(EDit1.Text,0), [])then
--
Open WebMail Project (http://openwebmail.org)
---------- Original Message -----------
From: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
To: delphi-br@yahoogrupos.com.br
Sent: Tue, 25 Jan 2005 17:20:48 -0200
Subject: Re: [delphi-br] Explicando - Busca com Números
> uai,
>
> se entendi bem, é só fazer:
>
> Table1.Locate('matricula', IntToStrDef(EDit1.Text,0), []);
>
> t+
>
> --
> Open WebMail Project (http://openwebmail.org)
>
> ---------- Original Message -----------
> From: Rafael Souza <[EMAIL PROTECTED]>
> To: delphi-br@yahoogrupos.com.br
> Sent: Tue, 25 Jan 2005 16:21:05 -0300 (ART)
> Subject: Re: [delphi-br] Explicando - Busca com Números
>
> > No exemplo que eu estou usando, quando eu digito no edit1 o nome de
> > uma pessoa, se encontra, retorna os dados, caso contrario avisa que
> > não encontrou, mas não quero busca por nomes e sim por números, e
> > isso gera um erro em minha aplicação. Em minha tabela possuo um
> > campo chamado Matricula que recebe somente números (N) ou (Integer).
> >
> > Fui claro desta fez ?
> >
> > Obrigado aos interessados em ajudar.
> >
> > .Rafael Souza.
> >
> > procedure TfMEs.Button1Click(Sender: TObject);
> > begin
> > Table1.Locate('Nome', IntToStr(EDit1.Text), []);
> > if not Table1.Locate('Nome', Edit1.Text, []) then
> > begin
> > ShowMessage('ME não Encontrado.');
> >
> > ===============================================
> >
> > --- Em delphi-br@yahoogrupos.com.br, Rafael Souza <[EMAIL PROTECTED]>
> > escreveu
> > > No comando seguinte, faço uma busca por nome, mas como faço para
> > fazer uma busca usando números??? (Na tabela Paradox, o campo esta
> > declarado para numeros).
> > >
> > > Alquem pode me dar esta dica ?
> > >
> > > procedure TfMEs.Button1Click(Sender: TObject);
> > > begin
> > > Table1.Locate('Nome',EDit1.Text,[locaseInsensitive,LoPartialKey]);
> > > if not Table1.Locate('Nome', Edit1.Text, []) then
> > > begin
> > > ShowMessage('ME não Encontrado.');
> > >
> > >
> > > Obrigado!
> > >
> > > .Rafael Souza.
> > >
> > >
> > > ---------------------------------
> > > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador
> > do Yahoo! agora.
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
> >
> > ---------------------------------
> >
> > Links do Yahoo! Grupos
> >
> > Para visitar o site do seu grupo na web, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/
> >
> > Para sair deste grupo, envie um e-mail para:
> > [EMAIL PROTECTED]
> >
> > O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> > Serviço do Yahoo!.
> >
> >
> > ---------------------------------
> > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador
> > do Yahoo! agora.
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> ------- End of Original Message -------
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
------- End of Original Message -------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
