谈Delphi下Internet的编程技巧(一)[6]

如何处理e-mail地址,下面给你个e-mail地址处理函数

function isemail(email: string): boolean;

  var    s: string;  

 etpos: integer;

 begin  

 etpos:= pos('@', email); 

  if etpos > 1 then   

begin  

   s:= copy(email,etpos+1,length(email));   

  if (pos('.', s) > 1) and (pos('.', s) <

 length(s)) then    

   result:= true else result:= false; 

  end   

else  

   result:= false;

 end;  

   procedure tform1.button1click(sender: tobject); 

begin  

 if isemail(edit1.text) then

   begin 

    showmessage('email-address!');

    end;