Membuat Fungsi Explode di Pascal

Untuk memecah variabel string berdasar delimiter ke dalam variabel array kita dapat melakukanya dengan mudah di PHP. tetapi di Pascal, kita harus mengutak atik sendiri.
misalkan
variable a=1,3,5,2,4
kalo di explode tanda koma pake (,) akan menjadi :
b[0] = 1
b[1] = 2
b[2] = 3
b[3] = 4
b[4] = 5

berikut ini fungsi explode di Pascal

function Explode(const str: string; const separator: string): TStrings;
var
  n: integer;
  p, q, s: PChar;
  item: string;
begin
  Result := TStringList.Create;
  try
    p := PChar(str);
    s := PChar(separator);
    n := Length(separator);
    repeat
      q := StrPos(p, s);
      if q = nil then q := StrScan(p, #0);
      SetString(item, p, q - p);
      Result.Add(item);
      p := q + n;
    until q^ = #0;
  except
    item := '';
    Result.Free;
    raise;
  end;
end;

Posted in: Tips-trik Programming