《从文本中提取电子邮件地址.doc》由会员分享,可在线阅读,更多相关《从文本中提取电子邮件地址.doc(2页珍藏版)》请在三一文库上搜索。
从文本中提取电子邮件地址 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-Adresse!); end; end;