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;
|