delphi中的split函数

//根据字符串，拆分字符串，相当于vb中的split函数
function splitstring(const source,ch:string):tstringlist;
var
  temp:string;
  i:integer;
begin
  result:=tstringlist.create;
  //如果是空自符串则返回空列表
  if source=''
  then exit;
  temp:=source;
  i:=pos(ch,source);
  while i<>0 do
  begin
     result.add(copy(temp,0,i-1));
     delete(temp,1,i);
     i:=pos(ch,temp);
  end;
  result.add(temp);
end;

www.sinoprise.com