Janilabo | LastBefore() [SCAR Divi]

{==============================================================================]
  Explanation: Returns the string before LAST s in str.
[==============================================================================}
function LastBefore(s, str: string): string;
var
  l, p, lp: Integer;
begin
  l := Length(str);
  if (Length(s) <= 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, 1, (lp - 1))
    else
      Result := '';
  end else
    Result := '';
end;

var
  str: string;

begin
  ClearDebug;
  str := 'LastBefore() WORKS! WORKS? Right?! ;)';
  WriteLn(LastBefore(' WORK', str));
end.