DELPHI 字符串分割处理

//TStringList，默认分割符为逗号、空格、回车，还可以指定单个字符；但是待分解的字符串中不能包含逗号、空格、回车
//indy的库函数和TStringList差不多，也不能包含逗号、空格、回车
//下面这个函数是我自己写的，指定分割符，可以单个字符，也可以是多个字符为分割符号，项目中一直在用，还不错
function TXTCommon.SpliteString(const source: string; Delimiter: string): 
  TStringList; 
var 
  tempStr, str: string; 
  strList: TStringList; 
  iPos: Integer; 
begin 
  tempStr := source; 
  strList := TStringList.Create; 
  iPos := Pos(Delimiter, tempStr); 
  while iPos <> 0 do 
  begin 
    str := Copy(tempStr, 1, iPos - 1); 
    strList.Add(str); 
    Delete(tempStr, 1, iPos - 1 + Length(Delimiter)); 
    iPos := Pos(Delimiter, tempStr); 
  end; 
  strList.Add(tempStr); 

  Result := strList; 
end;