Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Astuces - Internet - Vérifier qu'une adresse email est valide ou non en Delphi

Ajouter un composant TButton.

procedure TForm1.Button1Click(Sender: TObject);
Var St:String;
i:integer;
a,point:Boolean;
begin
St:='delphipage@free.fr'; //St est l'adresse email à vérifier
a:=False; //Paramètre les variables à False
point:=False;

//Détecte le '@'
for i:=1 to Length(St) do
if St[i]='@' then a:=True;

//Détecte le '.'
for i:=1 to Length(St) do
if St[i]='.' then point:=True;

//Affiche un message indiquant si l'adresse email est incorrect ou non
if (a=True) and (point=True) then ShowMessage ('Adresse email correct')
else
ShowMessage ('Adresse email incorrect');
end;


Tous droits réservés - Contacts
Haut de la page