怎样检查email的格式，在用户录入前进行检查，如果错误就有提示！

Question

在Edit离开事件里判断，判断用pos函数

Answer 1

在Edit的离开事件里加判断，判断用pos函数

Answer 2

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if pos('@',edit1.Text)=0 then
begin showmessage('格式有错');edit1.SelectAll ;edit1.SetFocus;end;
end;

Answer 3

var
i,j:integer;
s:string;
begin
  s:=edit1.text;
  i:=pos('@',s);
  j:=pos('.',s);
  if (i<=1) or (j<=1) or (j<=i+1) then ;//不合法email addressend;

Answer 4

谢谢大家，edit离开时是调用那个事件啊，MouseMove事件吗？具体的是怎样的，

Answer 5

谢谢大家，edit离开时是调用那个事件啊，MouseMove事件吗？具体的是怎样的，

Answer 6

不是，是onexit，
如果是mousemove只能判断鼠标移动事件；