Janilabo | LastAfter() [SCAR Divi]

{==============================================================================]
  Explanation: Returns the string after LAST s in str.
[==============================================================================}
function LastAfter(s, str: string): string;
var
  sL, l, p, lp: Integer;
begin
  l := Length(str);
  sL := Length(s);
  if (sL <= l) then
  begin
    repeat
      p := PosEx(s, str, (p + 1));
      if (p > 0) then
        lp := p;
    until (p <= 0);
    if (lp > 0) then
      Result := Copy(str, (lp + sL), ((1 + l) - (lp + sL)))
    else
      Result := '';
  end else
    Result := '';
end;

var
  str: string;

begin
  ClearDebug;
  str := 'This is LastAfter() test. YEP, let''s test. LastAfter() WORKS!';
  WriteLn(LastAfter('test. ', str));
end.