stringlist的CommaText，Delimiter和DelimitedText本来是挺好用的，不过如果要分割的字符串连续两个待分割字符，那么不会分割出一个空字符出来……
自己写一个也挺简单的
复制内容到剪贴板
代码:
{***************分割字符串函数*****************}
function F_cutstr(str:string;substr:string;stlist:tstringlist):boolean;
var
tmps:string;
begin
while pos(substr,str) > 0 do
begin
tmps:=copy(str,1,pos(substr,str)-1);
stlist.Add(tmps);
str:=copy(str,pos(substr,str)+1,length(str)-pos(substr,str));
end;
stlist.Add(str);
result:=true;
end;
