explode2

function StrExplode(d: Char; str: string): TStringArray;
var
  i, l, r, q: Integer;
begin
  SetLength(Result, 1);
  l := Length(str);
  if (l > 0) then
  begin
    r := 0;
    q := 1;
    for i := 1 to l do
      if (str[i] = d) then
      begin
        r := (r + 1);
        if (q <= r) then
        begin
          q := (q + q);
          SetLength(Result, q);
        end;
      end else
        Result[r] := (Result[r] + str[i]);
    SetLength(Result, (r + 1));
  end else
    Result[0] := str;
end;

function StrExplode2(d: Char; str: string): TStringArray;
var
  i, l, r: Integer;
begin
  SetLength(Result, 1);
  l := Length(str);
  if (l > 0) then
  begin
    r := 0;
    for i := 1 to l do
      if (str[i] = d) then
      begin
        r := (r + 1);
        SetLength(Result, (r + 1));
      end else
        Result[r] := (Result[r] + str[i]);
  end else
    Result[0] := str;
end;