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 shellexecute 打开文件夹

Delphi编程实现图像的淡入浅出

Delphi 删除任意文件的任意位置的任意数量的字符

Delphi gridpanel percent百分比设置

Delphi httpresponsestrings

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi编写你的第一个com程序

Delphi网络英汉字典代码

Delphi 文件路径结尾去掉“\”

Delphi firemonkey中listboxaccessory图标切换

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

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