Bom, em resumo, simplificando: Ex: Entro como parametro o número 3 (Apenas 3 Caracteres para a verificação, pode ser 4, 5, 6, caracteres, etc...) AAA - Retorna: ( Sequencia Inválida ) ABC - Retorna: ( Sequencia Inválida ) CDE - Retorna: ( Sequencia Inválida ) HIJ - Retorna: ( Sequencia Inválida ) 123 - Retorna: ( Sequencia Inválida ) 456 - Retorna: ( Sequencia Inválida ) 789 - Retorna: ( Sequencia Inválida )
468 - Retorna: ( Sequencia Válida ) XHT - Retorna: ( Sequencia Válida ) Etc... ----- Original Message ----- From: "Rogério" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Saturday, September 03, 2005 10:25 AM Subject: [delphi-br] ACHAR CARACTERES na SEQUENCIA Amigos, bom dia. Estou tentando desenvolver uma função para achar string de caracteres digitados em sequencia... A Mesma servirá para invalidar números ou letras em sequencia, repetidos ou letras em ordem alfabébica, ou repetidas... Alguém já viu algo parecido ?? Pensei em utilizar a tabela ASCII para resolver tal problema, de maneira mais prática, sem colocar as ocorrências uma à uma no próprio código. Mas estou tendo problemas/dificuldades na resolução... Ex: Entro como parametro o número 3 (Apenas 3 Caracteres para a verificação) AAA - Retorna: (Sequencia Inválida) ABC - Retorna:(Sequencia Inválida) CDE - Retorna:(Sequencia Inválida) HIJ - Retorna:(Sequencia Inválida) 123 - Retorna:(Sequencia Inválida) 456 - Retorna:(Sequencia Inválida) 789 - Retorna:(Sequencia Inválida) 468 - Retorna:(Sequencia Válida ) XHT - Retorna:(Sequencia Válida ) Etc... Alguém tem alguma idéia... [ ]'s [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 _______________________________________________________ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- <<<<< 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