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;