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;