ActiveDelphi

[vanessasbano]

Boa tarde,

Gostaria de uma dica, pois tenho a necessidade de ter um campo específico para a inclusão de e-mails, e sem um critica, meus usuários fazem deste campo , um campo para observações e dentre outros(número da conta corrente, etc), cujo já existe. Desde já agradeço.

[thomazs]

Uma forma simples de fazer essa validação seria, no evento OnValidate do campo, colocar algo mais ou menos assim:

if not ( (pos(\'@\',sender.AsString) > 0 ) and (pos(\'.\',sender.AsString) > 0 ) ) then
abort;



O pequeno trecho acima, obriga o conteúdo do campo a ter no mínimo o @ e 1 ponto. É uma forma de validar seu campo.
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[SergioA]

Prezado:

Usando expressões regulares:

function checkEmail($eMailAddress) {
if (eregi(\"^[0-9a-z]([-_.]?[0-9a-z])*@[0-9a-z]([-.]?
[0-9a-z])*\\\\.[a-z]{2,3}$\", $eMailAddress, $check)) {
return true;
}
return false;
}

extraído de [url]http://www.linhadecodigo.com.br/dicas.asp?id_dica=933&sub=46[/url]

Sds,

[vanessasbano]

Bom dia!


Agradeço as dicas, pois elas me foram de grande ajuda. Obrigada!!!