首先你的Email必需有和其他串区别的标志，且认为是以空格来区分的比如：
var count,i,j:integer
str,substr:string;
begin
str:='my email is lili@163.com';
count:=pos('@',str);
i:=count;j:=count;
while (str<>' ')or(i>0) do
dec(i);
while (str[j]<>' ') or (j<=length(str)) do
inc(j);
substr:=copy(str,i,j-i);
end;
最后substr里面的值就是email啦
