SRL Archive - Bugs

THIS IS THE SIMBA FORUM

  sa := Explode(#10,  s);  

Does we need sum explodes?!

srl_explode :)

E: I made one once:

program ExplodeFunction;

type ExplodeArray = array[1..65536] of String;

var arr: ExplodeArray;

function explode( delimeter, str: String ): ExplodeArray;
var i, l, a: Integer;
    r: ExplodeArray;
    s: Char;
    p: String;
begin
l := Length( str );
a := 1;
p := '';
  for i := 1 to l do
    begin
      s := StrGet( str, i );
      if ( s = delimeter ) then
        begin
          r[a] := p;
          p := '';
          a := a + 1;
        end else
        begin
          p := p + s;
        end;
    end;
    r[a] := p;
Result := r;
end;

begin
arr := explode( '.', 'lol.asd.fail' );
Writeln( arr[3] );
end.

Could be improved.

E2: Did not notice this was in simba forum, sorry :( Thought my code still works :)

Explode is in scar 3.20+

From: MylesMadness
Explode is in scar 3.20+

This is the Simba forum…

CRAP! First is was icefire doing this, nows its me…

Or you can use srl_Explode which predates Scar's explode.

function Explode(str, del: string): TStringArray;
var
  i, l, dL: Integer;
begin
  i := 0;
  l := -1;
  SetLength(Result, 0);
  if (str = '') then
    Exit;
  dL := Length(del) - 1;
  repeat
    Inc(l);
    SetLength(Result, l + 1);
    i := Pos(del, str);
    if i <= 0 then
      Break;
    Result[l] := Copy(str, 1, i - 1);
    Delete(str, 1, i + dL);
  until false
  Result[l] := Copy(str, 1, Length(str));
end;

Or export FPC's explode to PS :)

Does FPC export one? Than that should be used indeed ^_^..

If you include SRL it will wrap around some missing SCAR functions..