下面是个非常笨的办法,不过很容易说明问题,因为'☆'是两个字节,所以在pos('☆',s)+2 后面是加2,
这取决与你用什么来做分隔符(分隔符的长度)
procedure TForm1.Button1Click(Sender: TObject);
var
s,s1,s2,s3,s4:string;
ss:Tstringlist;
begin
s:='6☆1☆所有标签☆100604☆';
s1:=copy(s,1,pos('☆',s)-1);
s:=copy(s,pos('☆',s)+2,length(s));
s2:=copy(s,1,pos('☆',s)-1);
s:=copy(s,pos('☆',s)+2,length(s));
s3:=copy(s,1,pos('☆',s)-1);
s:=copy(s,pos('☆',s)+2,length(s));
s4:=copy(s,1,pos('☆',s)-1);
s:=copy(s,pos('☆',s)+2,length(s));
showmessage(s1+':'+s2+':'+s3+':'+s4);
end;