Delphi字符串分按符号分割

function split(src,dec : string):TStringList;
var
    i : integer;
    str : string;
begin
    result := TStringList.Create;
    repeat
      i := pos(dec,src);
      str := copy(src,1,i-1);
      if (str='') and (i>0) then
      begin
        delete(src,1,length(dec));
        continue;
      end;
      if i>0then
      begin
        result.Add(str);
        delete(src,1,i+length(dec)-1);
      end;
    until i<=0;
    if src<>''then
      result.Add(src);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
    ss : TStringList;
    str,dec : string;
begin
    str :='1111||2222||||3333|||4444||';
    dec :='||';
    ss := split(str,dec);
    memo1.Lines.AddStrings(ss);
    ss.Free;
end;