delphi_分隔字符串_多间隔字符

procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
  tmpStr:String;
  sValue:String;
  iStart,iPos:Integer;
begin
  try
    desLst.Clear;             //很重要，否则，会一直是第一个值
    tmpStr:=sourStr;
    iStart:=1;
    iPos:=Pos(splitChar,tmpStr);
    if iPos>0 then
    begin
      while iPos>0 do
      begin
        sValue:=MidBStr(tmpStr,iStart,iPos-iStart);
        desLst.Add(sValue);
        iPos:=iPos+length(splitChar);  //跳过多分隔符情况下的剩余分隔字节
        tmpStr:=midbstr(tmpStr,iPos,Length(tmpStr)-iPos+1);
        iPos:=Pos(splitChar,tmpStr);
        if iPos<=0 then  //处理最后一个元素
          desLst.Add(tmpStr);
      end;
    end
    else
    begin
      if (iPos=0) and (trim(tmpStr)<>'') then
        desLst.Add(tmpStr);
    end;
  except
  end;
end;