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;
 

相关阅读 >>

Delphi 数据类型列表

Delphi richedit控件中插入gif动画表情

Delphi comparestr 函数

Delphi的datetostr strtodate格式灵活用法

Delphi winsock远程唤醒计算机的函数

Delphi从路径取得文件名的简易方法

Delphi access中只取时间的日期部分的函数

Delphi中窗体的方法

Delphi 为数字补充前缀0

Delphi winapi: shellexecute - 打开外部程序或文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取邮箱中的用户名