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 webbrowser 操作记要

Delphi now、date、time、currentyear - 当前日期

Delphi win32，win64用于单/多线程计数素数的整数性能比较

Delphi 每年、月、周、日的开始与结束的时间

Delphi 分割字符串 extractstrings

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi下程序内存泄露报告

Delphi android下拉刷新

firemonkey 手机 app 的手势

Delphi 打开android应用信息

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

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