推荐使用 Classes.ExtractStrings 函数.
function Split(ss,s:string): TStringList;
begin
  Result := TStringList.Create;
  while Pos(s,ss)>0 do
  begin
    Result.Add(Copy(ss,1,Pos(s,ss)-1));
    Delete(ss,1,Pos(s,ss));
  end;
  Result.Add(ss);
end;


先谢谢 "tomzw" 朋友发现这个函数有内存泄露, 重新写了一个:

http://www.cnblogs.com/del/archive/2008/11/27/1342638.html

其实只有要注意释放返回的对象, 是可以避免内存泄露的.

posted on 2007-11-21 16:35  万一  阅读(5601)  评论(11编辑  收藏  举报