学步园

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;