explode

{$loadlib pumbaa.dll}

var
  s: string;
  f: Integer;
  t: TStringArray;

begin
  ClearDebug;
  f := OpenFile(ScriptPath + 'changelog.txt', False);
  ReadFileString(f, s, FileSize(f));
  CloseFile(f);
  f := GetSystemTime;
  t := pp_StrExplode2(#10, s);
  WriteLn('NEW: ' + IntToStr(GetSystemTime - f) + ' ms. [' + IntToStr(Length(t)) + ']');
  SetLength(t, 0);
  t := pp_StrExplode(#10, s);
  WriteLn('OLD: ' + IntToStr(GetSystemTime - f) + ' ms. [' + IntToStr(Length(t)) + ']');
  SetLength(t, 0);
  t := Explode(#10, s);
  WriteLn('Simba: ' + IntToStr(GetSystemTime - f) + ' ms. [' + IntToStr(Length(t)) + ']');
  SetLength(t, 0);
end.