如何判断email格式是否合法？
下了个正则表达式组件，不会用。有朋友解决过吗？
何为正则表达式？
[解决办法]
email格式？
是不是email地址的格式？
[解决办法]
如果是email地址的格式，我們這樣：
function IsVaildEmailAddr(EmailAddr:String):boolean;
var
Number,I:integer;
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
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
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;
[解决办法]
用正则
[解决办法]
Mark it.
[解决办法]
学习
[解决办法]
我想一般都是用正则表达式来验证email的
[解决办法]
RegExpr都是可以的
EmailRE = '[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+ ';
[解决办法]
正则表达式很费劲，不大好掌握
