delphi 手机号Email传真号验证有效性

概述//Email验证function TDeptCaptionFrm.EMailAddCheck(EmailAdd: string; var Errorcode: string): Boolean;  function CheckAt(s: string): integer;  var    num, t: integer;  begin    num := 0; 

//Email验证function TDeptCaptionFrm.EMailAddCheck(EmailAdd: string; var Errorcode: string): Boolean;  function CheckAt(s: string): integer;  var    num,t: integer;  begin    num := 0;    t := pos(‘@‘,s);    while t <> 0 do    begin      inc(num);      s := copy(s,t + 1,length(s) - t);      t := pos(‘@‘,s);    end;    result := num;  end;var  i,j: integer;  str: string;begin  i := pos(‘@‘,EmailAdd);  str := copy(EmailAdd,i + 1,length(EmailAdd) - i);  j := pos(‘.‘,str);  result := false;  if i = 0 then    Errorcode := ‘地址串中缺少"@"‘  else if i = 1 then    Errorcode := ‘第一位是"@",即缺少用户名‘  else if i = Length(EmailAdd) then    Errorcode := ‘最后一位是"@",即缺少服务器名‘  else if j = 0 then    Errorcode := ‘服务器名中缺少"."‘  else if (j = 1) or (j = length(str)) then    Errorcode := ‘用户名第一位或最后一位是"."‘  else if CheckAt(EmailAdd) > 1 then    Errorcode := ‘有多个"@"‘  else    result := true;end; //手机号验证function TDeptCaptionFrm.IsMobileNumber(num: string): boolean;begin  Result := False;  if length(trim(num)) <> 11 then    Exit;  if ((copy(num,1,2) <> ‘13‘) and (copy(num,2) <> ‘15‘)  and (copy(num,2) <> ‘18‘) and (copy(num,2) <> ‘17‘)) then    Exit;  try    StrToInt(copy(num,3,9));    Result := True;  except  end;end; //座机号验证function TDeptCaptionFrm.isTelNo(sValue: string): Boolean;var  i,m,n: Integer;  sBegin,sEnd: string;  sList: TStringList;begin  Result := False;  m := Pos(‘-‘,sValue);  if m = 0 then Exit;  sBegin := copy(sValue,m-1);  sEnd := copy(sValue,m+1,Length(sValue)-m);  if Length(sBegin) > 5 then Exit;  if Length(sEnd) > 8 then Exit;  //判断纯数字  for i := 0 to Length(sBegin)-1 do  begin    if not (sBegin[i+1] in [‘0‘..‘9‘]) then      Exit;  end;  for i := 0 to Length(sEnd)-1 do  begin    if not (sEnd[i+1] in [‘0‘..‘9‘]) then      Exit;  end;  sList := TStringList.Create;  try    sList.Add(‘010‘);    sList.Add(‘020‘);    sList.Add(‘021‘);    sList.Add(‘022‘);    sList.Add(‘023‘);    sList.Add(‘024‘);    sList.Add(‘025‘);    sList.Add(‘027‘);    sList.Add(‘028‘);    sList.Add(‘029‘);    sList.Add(‘0310‘);    sList.Add(‘0311‘);    sList.Add(‘0312‘);    sList.Add(‘0313‘);    sList.Add(‘0314‘);    sList.Add(‘0315‘);    sList.Add(‘0316‘);    sList.Add(‘0317‘);    sList.Add(‘0318‘);    sList.Add(‘0319‘);    sList.Add(‘0335‘);    sList.Add(‘0349‘);    sList.Add(‘0350‘);    sList.Add(‘0351‘);    sList.Add(‘0352‘);    sList.Add(‘0353‘);    sList.Add(‘0354‘);    sList.Add(‘0355‘);    sList.Add(‘0356‘);    sList.Add(‘0357‘);    sList.Add(‘0358‘);    sList.Add(‘0359‘);    sList.Add(‘0370‘);    sList.Add(‘0371‘);    sList.Add(‘0372‘);    sList.Add(‘0373‘);    sList.Add(‘0374‘);    sList.Add(‘0375‘);    sList.Add(‘0376‘);    sList.Add(‘0377‘);    sList.Add(‘0378‘);    sList.Add(‘0379‘);    sList.Add(‘0391‘);    sList.Add(‘0392‘);    sList.Add(‘0393‘);    sList.Add(‘0394‘);    sList.Add(‘0395‘);    sList.Add(‘0396‘);    sList.Add(‘0397‘);    sList.Add(‘0398‘);    sList.Add(‘0410‘);    sList.Add(‘0411‘);    sList.Add(‘0412‘);    sList.Add(‘0413‘);    sList.Add(‘0414‘);    sList.Add(‘0415‘);    sList.Add(‘0416‘);    sList.Add(‘0417‘);    sList.Add(‘0418‘);    sList.Add(‘0419‘);    sList.Add(‘0421‘);    sList.Add(‘0423‘);    sList.Add(‘0427‘);    sList.Add(‘0429‘);    sList.Add(‘0431‘);    sList.Add(‘0432‘);    sList.Add(‘0433‘);    sList.Add(‘0434‘);    sList.Add(‘0435‘);    sList.Add(‘0436‘);    sList.Add(‘0437‘);    sList.Add(‘0438‘);    sList.Add(‘0439‘);    sList.Add(‘0440‘);    sList.Add(‘0451‘);    sList.Add(‘0452‘);    sList.Add(‘0453‘);    sList.Add(‘0454‘);    sList.Add(‘0455‘);    sList.Add(‘0456‘);    sList.Add(‘0457‘);    sList.Add(‘0458‘);    sList.Add(‘0459‘);    sList.Add(‘0464‘);    sList.Add(‘0467‘);    sList.Add(‘0468‘);    sList.Add(‘0469‘);    sList.Add(‘0470‘);    sList.Add(‘0471‘);    sList.Add(‘0472‘);    sList.Add(‘0473‘);    sList.Add(‘0474‘);    sList.Add(‘0475‘);    sList.Add(‘0476‘);    sList.Add(‘0477‘);    sList.Add(‘0478‘);    sList.Add(‘0479‘);    sList.Add(‘0482‘);    sList.Add(‘0483‘);    sList.Add(‘0510‘);    sList.Add(‘0511‘);    sList.Add(‘0512‘);    sList.Add(‘0513‘);    sList.Add(‘0514‘);    sList.Add(‘0515‘);    sList.Add(‘0516‘);    sList.Add(‘0517‘);    sList.Add(‘0518‘);    sList.Add(‘0519‘);    sList.Add(‘0520‘);    sList.Add(‘0523‘);    sList.Add(‘0527‘);    sList.Add(‘0530‘);    sList.Add(‘0531‘);    sList.Add(‘0532‘);    sList.Add(‘0533‘);    sList.Add(‘0534‘);    sList.Add(‘0535‘);    sList.Add(‘0536‘);    sList.Add(‘0537‘);    sList.Add(‘0538‘);    sList.Add(‘0539‘);    sList.Add(‘0543‘);    sList.Add(‘0546‘);    sList.Add(‘0550‘);    sList.Add(‘0551‘);    sList.Add(‘0552‘);    sList.Add(‘0553‘);    sList.Add(‘0554‘);    sList.Add(‘0555‘);    sList.Add(‘0556‘);    sList.Add(‘0557‘);    sList.Add(‘0558‘);    sList.Add(‘0559‘);    sList.Add(‘0561‘);    sList.Add(‘0562‘);    sList.Add(‘0563‘);    sList.Add(‘0564‘);    sList.Add(‘0565‘);    sList.Add(‘0566‘);    sList.Add(‘0570‘);    sList.Add(‘0571‘);    sList.Add(‘0572‘);    sList.Add(‘0573‘);    sList.Add(‘0574‘);    sList.Add(‘0575‘);    sList.Add(‘0576‘);    sList.Add(‘0577‘);    sList.Add(‘0578‘);    sList.Add(‘0579‘);    sList.Add(‘0580‘);    sList.Add(‘0591‘);    sList.Add(‘0592‘);    sList.Add(‘0593‘);    sList.Add(‘0594‘);    sList.Add(‘0595‘);    sList.Add(‘0596‘);    sList.Add(‘0597‘);    sList.Add(‘0598‘);    sList.Add(‘0599‘);    sList.Add(‘0631‘);    sList.Add(‘0632‘);    sList.Add(‘0633‘);    sList.Add(‘0634‘);    sList.Add(‘0635‘);    sList.Add(‘0660‘);    sList.Add(‘0662‘);    sList.Add(‘0663‘);    sList.Add(‘0668‘);    sList.Add(‘0691‘);    sList.Add(‘0692‘);    sList.Add(‘0701‘);    sList.Add(‘0710‘);    sList.Add(‘0711‘);    sList.Add(‘0712‘);    sList.Add(‘0713‘);    sList.Add(‘0714‘);    sList.Add(‘0715‘);    sList.Add(‘0716‘);    sList.Add(‘0717‘);    sList.Add(‘0718‘);    sList.Add(‘0719‘);    sList.Add(‘0722‘);    sList.Add(‘0724‘);    sList.Add(‘0728‘);    sList.Add(‘0730‘);    sList.Add(‘0731‘);    sList.Add(‘0732‘);    sList.Add(‘0733‘);    sList.Add(‘0734‘);    sList.Add(‘0735‘);    sList.Add(‘0736‘);    sList.Add(‘0737‘);    sList.Add(‘0738‘);    sList.Add(‘0739‘);    sList.Add(‘0743‘);    sList.Add(‘0744‘);    sList.Add(‘0745‘);    sList.Add(‘0746‘);    sList.Add(‘0750‘);    sList.Add(‘0751‘);    sList.Add(‘0752‘);    sList.Add(‘0753‘);    sList.Add(‘0754‘);    sList.Add(‘0755‘);    sList.Add(‘0756‘);    sList.Add(‘0757‘);    sList.Add(‘0758‘);    sList.Add(‘0759‘);    sList.Add(‘0760‘);    sList.Add(‘0762‘);    sList.Add(‘0763‘);    sList.Add(‘0766‘);    sList.Add(‘0768‘);    sList.Add(‘0769‘);    sList.Add(‘0770‘);    sList.Add(‘0771‘);    sList.Add(‘0772‘);    sList.Add(‘0773‘);    sList.Add(‘0774‘);    sList.Add(‘0775‘);    sList.Add(‘0776‘);    sList.Add(‘0777‘);    sList.Add(‘0778‘);    sList.Add(‘0779‘);    sList.Add(‘0790‘);    sList.Add(‘0791‘);    sList.Add(‘0792‘);    sList.Add(‘0793‘);    sList.Add(‘0794‘);    sList.Add(‘0795‘);    sList.Add(‘0796‘);    sList.Add(‘0797‘);    sList.Add(‘0798‘);    sList.Add(‘0799‘);    sList.Add(‘08018‘);    sList.Add(‘08059‘);    sList.Add(‘0812‘);    sList.Add(‘0813‘);    sList.Add(‘0816‘);    sList.Add(‘0817‘);    sList.Add(‘0818‘);    sList.Add(‘0825‘);    sList.Add(‘0826‘);    sList.Add(‘0827‘);    sList.Add(‘0830‘);    sList.Add(‘0831‘);    sList.Add(‘0832‘);    sList.Add(‘0833‘);    sList.Add(‘0834‘);    sList.Add(‘0835‘);    sList.Add(‘0836‘);    sList.Add(‘0837‘);    sList.Add(‘0838‘);    sList.Add(‘0839‘);    sList.Add(‘0851‘);    sList.Add(‘0852‘);    sList.Add(‘0853‘);    sList.Add(‘0854‘);    sList.Add(‘0855‘);    sList.Add(‘0856‘);    sList.Add(‘0857‘);    sList.Add(‘0858‘);    sList.Add(‘0859‘);    sList.Add(‘0870‘);    sList.Add(‘0871‘);    sList.Add(‘0872‘);    sList.Add(‘0873‘);    sList.Add(‘0874‘);    sList.Add(‘0875‘);    sList.Add(‘0876‘);    sList.Add(‘0877‘);    sList.Add(‘0878‘);    sList.Add(‘0879‘);    sList.Add(‘0883‘);    sList.Add(‘0886‘);    sList.Add(‘0887‘);    sList.Add(‘0888‘);    sList.Add(‘0890‘);    sList.Add(‘0891‘);    sList.Add(‘0892‘);    sList.Add(‘0893‘);    sList.Add(‘0894‘);    sList.Add(‘0895‘);    sList.Add(‘0896‘);    sList.Add(‘0897‘);    sList.Add(‘0898‘);    sList.Add(‘0899‘);    sList.Add(‘0901‘);    sList.Add(‘0902‘);    sList.Add(‘0903‘);    sList.Add(‘0906‘);    sList.Add(‘0908‘);    sList.Add(‘0909‘);    sList.Add(‘0911‘);    sList.Add(‘0912‘);    sList.Add(‘0913‘);    sList.Add(‘0914‘);    sList.Add(‘0915‘);    sList.Add(‘0916‘);    sList.Add(‘0917‘);    sList.Add(‘0919‘);    sList.Add(‘0930‘);    sList.Add(‘0931‘);    sList.Add(‘0932‘);    sList.Add(‘0933‘);    sList.Add(‘0934‘);    sList.Add(‘0935‘);    sList.Add(‘0936‘);    sList.Add(‘0937‘);    sList.Add(‘0938‘);    sList.Add(‘0939‘);    sList.Add(‘0941‘);    sList.Add(‘0943‘);    sList.Add(‘0951‘);    sList.Add(‘0952‘);    sList.Add(‘0953‘);    sList.Add(‘0954‘);    sList.Add(‘0955‘);    sList.Add(‘0970‘);    sList.Add(‘0971‘);    sList.Add(‘0972‘);    sList.Add(‘0973‘);    sList.Add(‘0974‘);    sList.Add(‘0975‘);    sList.Add(‘0976‘);    sList.Add(‘0977‘);    sList.Add(‘0979‘);    sList.Add(‘0990‘);    sList.Add(‘0991‘);    sList.Add(‘0992‘);    sList.Add(‘0993‘);    sList.Add(‘0994‘);    sList.Add(‘0995‘);    sList.Add(‘0996‘);    sList.Add(‘0997‘);    sList.Add(‘0998‘);    sList.Add(‘0999‘);    sList.Add(‘00852‘);    sList.Add(‘00853‘);    sList.Add(‘00886‘);    if sList.IndexOf(sBegin)=-1 then Exit;    Result := True;  finally    FreeAndNil(sList);  end;end;--------------------- 作者：qq_39951605 来源：CSDN 原文：https://blog.csdn.net/qq_39951605/article/details/82657625 版权声明：本文为博主原创文章，转载请附上博文链接！

总结

以上是内存溢出为你收集整理的delphi 手机号/Email/传真号验证有效性全部内容，希望文章能够帮你解决delphi 手机号/Email/传真号验证有效性所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。