RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

delphi 获取邮箱中的用户名

作者:admin 来源: 日期:2014/1/24 22:26:23 人气: 标签:

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

 {------------------------------------------------------}

{               从 ****@###.##中提取出****              }
{------------------------------------------------------}
function GetUserName(EmailAddress:string):string;
var
  EdPosition : Integer;
begin
  EdPosition := AnsiPos('@',EmailAddress);
  if EdPosition >0 then
    begin
      result :=Copy(EmailAddress,0,EdPosition-1);
    end
  else
    Result := EmailAddress;
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: