Delphi функция explode из php

// строку в список (explode)
procedure str_explode(const sDelimiter, sSrc :string; resStr: TStrings; lLimit :integer = -1; bWithEmpty :boolean = true);
// разбивает в массив строку sSrc по разделителю sDelimiter
// lLimit - предел длины массива (-1 - без предела)
// bWithEmpty - разрешать пустые строки
var i, ni, dl :integer;
begin
    dl := Length(sDelimiter);
    resStr.Clear;
    if Length(sSrc) = 0 then exit;
    if lLimit <= 0 then lLimit := MaxInt;
    i := 1;
    repeat
        ni := PosEx(sDelimiter, sSrc, i);
        if (ni = i) and not bWithEmpty then begin
            inc(i, dl);
        end else if (ni = 0) or (resStr.Count = lLimit) then begin
            resStr.add(Copy(sSrc, i, MaxInt));
            break;
        end else begin
            resStr.add(Copy(sSrc, i, ni - i));
            i := ni + dl;
        end;
    until false;
end;
 
function str_implode(rz:string; list:TStrings): string;
var i:integer;
begin
  result:='';
  if list.Count=0 then exit;
  for i := 0 to list.Count - 2 do result:=result+list[i]+rz;
  result:=result+list[list.Count-1];
end;