obrigado ae pela ajuda Rubem e Evandro !!!!
vcs tem alguma função de validação de CNPJ ?
obrigado.....
Ass:Cristiano
Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu:
Errado, Evandro! A função Copy() retorna SEMPRE string. Do jeito que vc
colocou, vc quer fazer uma verificação de um caracter dentro de um conjunto
de caracteres pré-definidos. O correto seria:
sTexto := Edit1.Text;
for i := 1 to Length(sTexto) do
if sTexto[i] in ['@', '#', '/', '-'] then
{ seu código }
[]s
>From: "Evandro" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: <delphi-br@yahoogrupos.com.br>
>Subject: Re: [delphi-br] Detalhes
>Date: Wed, 6 Jul 2005 10:33:16 -0300
>
>for i = 1 to length(edit1.text)
> if copy( edit1.text, i, 1 ) in '@#/-' then
>... e por ai vai.
>
>Evandro Siqueira
>Programador
>Recife/PE
>
>----- Original Message -----
>From: "Cristiano" <[EMAIL PROTECTED]>
>To: <delphi-br@yahoogrupos.com.br>
>Sent: Tuesday, July 05, 2005 10:27 AM
>Subject: [delphi-br] Detalhes
>
>
>
>Sou iniciante em programação e gostaria de saber como eu faço para correr
>um
>DBEdit a procura de caracteres especiais do tipo ( / , - , @ ) e tb como eu
>faço para evitar a entrada de números em lugar de letras em um campo por
>exemplo do DBEdit.
>
>Fico muito grato a quem me ajudar.
>
>
>
>Ass: Cristiano
>
>
>__________________________________________________
>Converse com seus amigos em tempo real com o Yahoo! Messenger
>http://br.download.yahoo.com/messenger/
>
>[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
>
>
>
>
>
>
>
>
>
>
_________________________________________________________________
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
--
<<<<< 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 Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador 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
