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;