Bom dia Rogério...
Segue uma função que tenho, porém, não sei que é o autor, pois faz um tempinho que a peguei e não tinha o nome dele na mesma espero que sirva.. Function Occurs(T, S : ShortString) : Byte; Var P : Byte; Begin Result := 0; P := Pos (T, S); while P > 0 do begin Inc (Result); S := Copy (S, P + Length (T), 255); P := Pos (T, S); end; End; Em 01/09/05, Rogério<[EMAIL PROTECTED]> escreveu: > 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 > > > > > > > > -- <<<<< 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