• Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   13-02-2016

      Prezados membros do Clube do Hardware,

      Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:
        Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas ao formulário abaixo:    Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Seguidores 0
camelo

função valida email

9 posts neste tópico

To precisando de uma função, escrita em Delphi, pra validar email. Tambem serve função pra varrer uma String passando um index (não serve a função "pos", pois ela retorna o index do caracter encontrado). :unsure:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado Originalmente por camelo@05 dez 2004, 00:32

To precisando de uma função, escrita em Delphi, pra validar email. Tambem serve função pra varrer uma String passando um index (não serve a função "pos", pois ela retorna o index do caracter encontrado). :unsure:

puxa cara... não sei programa em delphi, mas tenta fazer alguma coisa.. que verifique c tem @ (só pode ter 1) e c tem caracters antes ou depois... algo do genero!! beleza...

Compartilhar este post


Link para o post
Compartilhar em outros sites

beleza*

faz um while e lê cada posição da tua string, é só verificar se tem um caracter @ e se possuí algum caracter antes e depois da mesma, inclusive um ponto após a @.....

falou!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente usar essa função:

    function WCMatchStrings( const Pattern, MatchString: String; 
                            CaseSensitive: Boolean ): Boolean;

           function DoWCMatch( Pattern: PChar; MatchString: PChar): Boolean;
           begin
             // have we run out of match string ?
             if ( MatchString^ = #0 ) then
               begin
                 // if we've run out of pattern as well, we've matched
                 if ( Pattern^ = #0 ) then
                   Result := True

                 // otherwise the only possibility for matching is that
                 // the remaining pattern consists of asterisks
                 else if ( Pattern^ <> '*' ) then
                   Result := False
                 else
                   Result := DoWCMatch( Pattern + 1, MatchString )
               end

             //otherwise there's some match string left
             else
               begin
                 // if we've run out of pattern, there's no match
                 if ( Pattern^ = #0 ) then
                   Result := False

                 // if we're at the final pattern character and it's an asterisk,
                 // there's an obvious match
                 else if ( ( Pattern + 1)^ = #0 ) and ( Pattern^ = '*' ) then
                   Result := True

                 // otherwise, try to match the current pattern character to
                 // the current match string character
                 else
                   begin
                     case Pattern^ of
                       '*': begin
                              Result := DoWCMatch( Pattern + 1, MatchString );

                              if not Result then
                                Result := DoWCMatch( Pattern, MatchString + 1 );
                            end;
                       '?': Result := DoWCMatch( Pattern + 1, MatchString );
                     else
                            if ( Pattern^ <> MatchString^ ) then
                              Result := False
                            else
                              Result := DoWCMatch( Pattern + 1,  MatchString + 1 );
                     end;
                   end;
               end;
           end;

   begin
     if CaseSensitive then
       Result := DoWCMatch( PChar( Pattern ), PChar( MatchString ) )
     else
       Result := DoWCMatch( PChar( UpperCase( Pattern ) ),
                            PChar( UpperCase( MatchString ) ) );
   end;

Ela faz busca com base em um padrão que você define e que pode incluir wildcards. Para um email, você pode definir um padrão (pattern) tipo *@*.com.br e também *@*.com

Compartilhar este post


Link para o post
Compartilhar em outros sites
Postado Originalmente por camelo@16 dez 2004, 02:36

beleza, mas passo como parametro o "@.com.br" e "@.com"??? B)

Use:

emailvalido:=WCMatchStrings('*@*.com.br', email, False);

emailvalido:=WCMatchStrings('*@*.com', email, False);

emailvalido:=WCMatchStrings('*@*', email, False);

Esse False é para ele ignorar se é letra maiúscula ou minúscula.

email seria o endereço que você tem. A última opção é apenas para olhar se tem @, que seria o ideal, pois nem todos os emails são se provedores .com . Como alguém disse, você deveria também usar uma função para contar quantos @ tem (deveria ter apenas um). Isso é fácil.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Problema Resolvido!

Caso o autor necessite que o tópico seja reaberto, favor enviar mensagem privada para um dos moderadores dessa área.

Abraços!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  
Seguidores 0