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中time消息的使用方法

阻止删除文件(文件占坑)的Delphi代码

dbgrid的cellclick事件，单击当前行记录的那一行时，不发生

Delphi idhttp post

Delphi 中相对路径与绝对路径函数

Delphi 提取标签之间的字符串（重复标签）

Delphi 监视剪贴板内容

Delphi实现注册表的操作

Delphi中ado异步执行方式

Delphi工具之winsight

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

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