delphi 获取邮箱中的用户名

有一个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;

推荐分享