{$loadlib pumbaa.dll}

var
  f: Integer;
  s, r: string;

begin
  ClearDebug;
  f := OpenFile((ScriptPath + 'changelog.txt'), False);
  ReadFileString(f, s, FileSize(f));
  CloseFile(f);
  WriteLn('Original length: ' + IntToStr(Length(s)));
  f := GetSystemTime;
  r := pp_StrReplace(s, 'SCAR', 'hm', [rfReplaceAll]);
  WriteLn('pp_StrReplace: ' + IntToStr(GetSystemTime - f) + ' ms. (' + IntToStr(Length(r)) + ') [' + MD5(r) + ']');
  r := '';
  f := GetSystemTime;
  r := Replace(s, 'SCAR', 'hm', [rfReplaceAll]);
  WriteLn('Replace: ' + IntToStr(GetSystemTime - f) + ' ms. (' + IntToStr(Length(r)) + ') [' + MD5(r) + ']');
  s := '';
end.