怎么判断编辑框中Email 的合法性，然后复制@左边的数字 到临危一个编辑框

[worddelphi]

怎么判断编辑框中Email 的合法性，然后复制@左边的数字 到临危一个编辑框

[Harryfin]

用正则表达式

如果不会写的话，具体表达式上网搜搜，很多

[worddelphi]

能不能写个例子，最好是全部过程没有函数的

[hsmserver]

function MailURLMayBeInvalid(const ms: string): Boolean;
var
  i:Integer;
  c:string;
begin
  Result:=(Trim(ms)='') or (Pos(' ',AnsiLowerCase(ms))>0) or
  (Pos('?',AnsiLowerCase(ms))>0) or (Pos('?',AnsiLowerCase(ms))>0) or
  (Pos('ü',AnsiLowerCase(ms))>0) or (Pos('?',AnsiLowerCase(ms))>0) or
  (Pos('[',AnsiLowerCase(ms))>0) or (Pos(']',AnsiLowerCase(ms))>0) or
  (Pos('(',AnsiLowerCase(ms))>0) or (Pos(')',AnsiLowerCase(ms))>0) or
  (Pos(':',AnsiLowerCase(ms))>0);
  if Result then Exit; 
  i:=Pos('@',ms);
  Result:=(i=0) or (i=1) or (i=Length(ms));
  if Result then Exit;
  Result:=(Pos('@',Copy(ms,i+1, Length(ms)-1))>0);
  if Result then Exit; 
  c:=Copy(ms,i+1, Length(ms));
  Result:=Length(c)<=1; 
  if Result then Exit;
  i:=Pos('.',c);
  Result:=(i=0) or (i=1) or (i=Length(c));
end;

[rainychan2009]

这个听说要按协议来。

[caipuhappy]

入门书上几乎都有啊 ！！