Paulo Fernandes,
Antes de efetuar a validação tente :
If Length(EditCpf.text) < 11 then
ShowMessage(‘CPF inválido’)
Else
ValidaCpf(EditCpf.Text);
If Length(EditCnpf.text) < 14 then
ShowMessage(‘CNPJ inválido’)
Else
ValidaCpf(EditCNPJ.Text);
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de pcfernandes1971
Enviada em: quarta-feira, 25 de maio de 2005 11:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] teste para um edit
Estou testando o CNPJ e CPF separados, o CNPJ tem 14 digitos e o CPF
tem 11 digitos. No meu form coloquei um RadioGroup com as opções CNPJ
e CPF quando marco CNPJ habilita um edit para digitar os CNPJ e caso
contrário um para CPF, são edits diferentes. Em cada edit já informei
o maxlenth para cada um , mas se eu marcar o CNPJ e for digitar CPF
da um erro: Project nome_do_projeto.exe raised exception class
Econvert Error With Message, mas esse erro se da por causa do teste
se o CNPJ é valido ou não.
Pessoal como eu faço para testar se um edit receber o menor q 14
digitos?
PAULO FERNANDES
PORTO ALEGRE/RS
--
<<<<< 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]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
<http://br.yahoo.com/info/utos.html> Serviço do Yahoo!.
[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
