哪位高手可以告诉我,在DELPHI里面怎么样去判断电子邮箱的格式呢?
解决方案 »
- 哪个哥哥能帮我把这段delphi代码转换成c++builder的代码?谢谢啦
- 散分,捎带一个Word问题
- 如何编程实现xp下开机自动格式化c盘?
- 关于TWebBrowser的问题,如何象调用“在新窗口中打开”一样用IE来打开网页(在线等待,解决立即给分)
- 可以将多线程写进DLL吗?
- delphi创建的ISAPI网络程序---请各位赐教
- 学JAVA呢,还是DELPHI。
- 有没有温州的DELPHI程序员
- 关于一个Mdi窗体的问题简单问题,大家帮个忙?
- NT 提示“应用程序已满”,如何解决?
- 使用API函数FaxSendDocument处理传真打印时总是提示87号错误,使我翻译的不正确吗?请高手挣分。
- Delphi+SPCOMM开发串口通信程序,为什么读取串口数据的速度这么慢呢?
var TempLen,TempResult:integer;
begin
TempLen:=length(EmailAddr);
TempResult:=0;
if pos('@',EmailAddr)<=1 then TempResult:=TempResult+1;
if (pos('.',EmailAddr) =TempLen) or (pos('.',EmailAddr)=pos('@',EmailAddr)+1)
then TempResult:=TempResult+2;
result:=TempResult;
end;//调用:
case CheckEmailAddress('@99.com') of
0: ;//正确格式
1: ;//@位置不正确
2: ;//.位置不正确
3: ;//@位置不正确,.位置也不正确