获取邮箱中的用户名

最新推荐文章于 2022-06-21 20:05:31 发布

weixin_30878501

最新推荐文章于 2022-06-21 20:05:31 发布

阅读量552

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/dabiao/archive/2010/02/19/1669519.html

有一个E-mail地址：username@***.com，编一个程序，读出username.

1 { ------------------------------------------------------ }
2 {                从 ****@###.##中提取出****               }
3 { ------------------------------------------------------ }
4 function GetUserName(EmailAddress: string ): string ;
5 var
6   EdPosition : Integer;
7 begin
8   EdPosition : = AnsiPos( ' @ ' ,EmailAddress);
9    if EdPosition > 0 then
10      begin
11       result : = Copy(EmailAddress, 0 ,EdPosition - 1 );
12      end
13    else
14     Result : = EmailAddress;
15 end ;
16

{☆推荐☆：返利网，网上购物拿返利，省钱新门道}

转载于:https://www.cnblogs.com/dabiao/archive/2010/02/19/1669519.html