Delphi Split函数

 

function Split(s,s1:string):TStringList;
begin
  Result:=TStringList.Create;
  while Pos(s1,s)>0 do
  begin
       Result.Add(Copy(s,1,Pos(s1,s)-1));
       Delete(s,1,Pos(s1,s));
  end;
  Result.Add(s);
end;