RilessX
Messages postés14Date d'inscriptionmardi 21 juillet 2009StatutMembreDernière intervention 6 août 2010
-
4 août 2010 à 20:33
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 2019
-
10 août 2010 à 17:22
Bonjour à tous,
Comment vérifier la syntaxe d'une adresse e-mail (xxx@xxxxx.xxx).
merci d'avance pour vos réponses
RilessX
Messages postés14Date d'inscriptionmardi 21 juillet 2009StatutMembreDernière intervention 6 août 2010 6 août 2010 à 20:36
merci pour ta réponse beckerich
je sort un peut du sujet principal, mais, comment installer l'aide de Delphi CORRECTEMENT. je croix qu'il est incompatible c'est tout.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Shadow29c
Messages postés4Date d'inscriptionsamedi 14 novembre 2009StatutMembreDernière intervention10 août 2010 9 août 2010 à 23:58
Bonjour,
Voici un petit bout de code que j'utilise. Je tente seulement de valider si la personne utilise "@" et "." dans le texte. Je ne couvre pas les erreurs du genre nom@domaine..com ou encore nom@.domainecom..... Mais c'est mieux que rien.
Function ValiderChar(Caractere,Ligne:string):Boolean;
var
I :integer;
begin
Result:= false;
for I := 0 to Length(Ligne) - 1 do
if Ligne[I] = Caractere then Result := true;
end;
Ensuite, j'appelle la fonction :
if (ValiderChar('@',EdtEmail.Text)) and (ValiderChar('.',EdtEmail.Text)) then
showmessage(Format('L''adresse de Courrielle " %s " est Valide',[EdtEmail.Text] ));