判断E-Mail的合法性

转载 2005年02月26日 14:23:00

unit mainunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function IsVaildEmailAddr(EmailAddr:String):boolean;
var
 Number,I:integer;  //Number用于给字符'@'计数
 TempStr:String;
begin
 TempStr:=EmailAddr;
 Number:=0;
 for I:=1 to Length(TempStr) do
   begin
     if (TempStr [I]='@') then
       INC(Number);
   end;
   if ((Number =0)or(Number >1)) then
    Result:=False//如果不含有字符'@',或者其个数大于1,则不合法
   else
   begin
    if ((TempStr [1]='@')or (TempStr [length(TempStr)]='@')) then
     Result:=False//如果字符'@'的位置在字符串开头或者末尾,则不合法
    else
    begin
     I:=pos('@',TempStr);//获取字符'@'在字符串当中的位置
     delete(TempStr,1,I);//获取字符串中字符'@'后面的剩余子串
     if (Length(TempStr)<3) then
      Result:=False       //如果剩余子串的长度小于3,则不合法
     else
     begin
      if ((pos('.',TempStr)=0)or(pos('.',TempStr)=length(TempStr))
          or (pos('.',TempStr)=1))then
       Result:=False//如果剩余的子串当中不含有字符'.',或者其位置在//子串的开头或者末尾,则不合法
      else
       Result:=True;      //以上的判断都通过,则表示地址字符串为合法
     end;
    end;
   end;
 end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Edit1.Text<>'')then
  begin
   if IsVaildEmailAddr(Edit1.Text) then
    ShowMessage('您输入的电子邮件地址格式合法!')
   else
    ShowMessage('您输入的电子邮件地址格式不合法!');
  end;
end;

end.

判断email地址是否合法

无标题文档 function isEmail( textEmail){ var apos=textEmail.indexOf("@",1); if(apos==-1) { alert("em...
  • u011482680
  • u011482680
  • 2014-07-09 11:43:15
  • 1203

实现使用正则表达式来判断指定的字符串是否是合法的E-mail地址

//实现使用正则表达式来判断指定的字符串是否是合法的E-mail地址 String regex = ".+@.+(\\..{2,3})*\\..{2,3}"; Stri...
  • u014388299
  • u014388299
  • 2016-09-21 22:01:29
  • 2117

IP地址合法性及子网判断流程图

  • 2009年06月18日 21:43
  • 29KB
  • 下载

JavaScript判断E-mail地址是否合法

编写自定义的JavaScript函数checkEmail(),在该函数中首先判断E-mail文本框是否为空,然后在应用正则表达式判断E-mail地址是否合法,如果不合法提示用户 functio...
  • qq_22605739
  • qq_22605739
  • 2015-06-10 09:03:31
  • 1232

C语言实现IP地址合法性检测和子网匹配

#include #include #ifdef WIN32 #include #else #include #include #include #include #i...
  • Tengguanghua
  • Tengguanghua
  • 2014-09-20 21:32:34
  • 3726

ip地址的合法性及子网判断

  • 2014年12月15日 15:24
  • 136KB
  • 下载

关于Java的一点正则表达式来验证E-mail是否正确

先来句废话,因为地震,很久没有来csdn了,现在平静了 终于可以安心下来继续我的学习和工作正因为地震期间,没有事情做 就无聊的琢磨着E-mail,网上看了很多关于验证E-mail的,但总觉得在一些验证...
  • mothz
  • mothz
  • 2008-07-01 08:33:00
  • 2426

算术表达式的合法性判断与求值(下)

上一篇讲到,通过编译原理的方法(词法分析和语法分析)来判断字符串表示的算术表达式的合法性。这一篇,接着讲在算术表达式合法的情况下,对表达式进行求值。 问题:给定一个字符串,只包含 '+'、'-'...
  • lisong694767315
  • lisong694767315
  • 2014-10-07 11:05:47
  • 3149

js常用判断表单合法性的函数

以下代码可以单独保存为一个js文件然后直接调用就可以了(www.miplat.com)function isEmpty(str) { if ((str==null) || (str.length==0...
  • vince6799
  • vince6799
  • 2005-10-29 23:58:00
  • 1581

判断日期合法性

这边写一个判断一个日期的合法性,比如是没有2008-02-31,aaaa-03-89等都不合法的,这个Datetil在java中可以解决这样的一个问题,如果还有缺陷请相告,感谢! import ja...
  • u014001866
  • u014001866
  • 2016-03-18 13:28:16
  • 2573
收藏助手
不良信息举报
您举报文章:判断E-Mail的合法性
举报原因:
原因补充:

(最多只允许输入30个字)