delphi split函数(积累)

function SplitString(const Source,ch:String):TStringList;
var
Temp:String;
I:Integer;
chLength:Integer;
begin
Result:=TStringList.Create;
//如果是空自符串则返回空列表
if Source='' then Exit;
Temp:=Source;
I:=Pos(ch,Source);
chLength := Length(ch);
while I<>0 do
begin
     Result.Add(Copy(Temp,0,I-chLength+1));
     Delete(Temp,1,I-1 + chLength);
     I:=pos(ch,Temp);
end;
Result.add(Temp);
end;