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 i0 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