今天看到一个blog上讨论字符串分割函数,一时兴起,自己写了一个

这个是其他人写的相关函数
http://blog.codelphi.com/hanklee/archive/2004/06/08/13932.aspx?Pending=true

我是用传址的过程来实现结果返回的,反正挺简单的
//Strs: TStrings 分割后的字符串元素
//str: string; 源字符串
//spt: string 分隔符
procedure TFileServerThread.cutString(var Strs: TStrings; str: string; const spt: string);
begin
     while (pos(spt, str) <> 0) do begin
          strs.Add(copy(str, 1, pos(spt, str) - 1));
          delete(Str, 1, pos(spt, str) + 1);
     end;
     strs.Add(str);
end;