请问,如果我想提取邮件地址@前面的字符,如:[email protected],提取@前的ple.应该怎样做,请那位给我指示一下,谢谢! ShowMessage(Copy('[email protected]',1,Pos('@','[email protected]')-1)); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 楼上的意见是正确的,或者:srcstr := '[email protected]';tmpstr := '';for i := 1 to length(srcstr) dobegin if srcstr[i] = '@' then abort; tmpstr := tmpstr + srcstr[I];end; delphi 如何通过托盘图标,获取进程PID 闲来无事提个问题 C/S 如何在无盘网络中广泛应用? 请问这样的关机代码,关机原理是什么 请问如何制作资源文件,并且在delphi中调用? 这个问题真的要高手来解决了!!! 如何实现TTreeView内部的所有项目显示 关于ShellTreeView(D6)的问题 有谁知道delphi7到底支持.net吗? 请看问题代码 大家帮帮忙!我初学pascal!~ 请问怎样调用*.udl数据库连接文件???
srcstr := '[email protected]';
tmpstr := '';
for i := 1 to length(srcstr) do
begin
if srcstr[i] = '@' then abort;
tmpstr := tmpstr + srcstr[I];
end;