delphi中的split函数

//根据字符串，拆分字符串，相当于vb中的split函数
function SplitString(const Source,ch:string):TStringList;var temp:String; i:Integer;begin
Result:=TStringList.Create; //如果是空自符串则返回空列表
if Source= then exit; t
emp:=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;