Janilabo | Before() [SCAR Divi]

{==============================================================================]
  Explanation: Returns the string before s in str.
[==============================================================================}
function Before(s, str: string): string;
var
  p: Integer;
begin
  if (Length(s) < Length(str)) then
  begin
    p := Pos(s, str);
    if (p > 1) then
      Result := Copy(str, 1, (p - 1))
    else
      Result := '';
  end else
    Result := '';
end;

var
  str: string;

begin
  ClearDebug;
  str := 'Before() WORKS! Test to see if Before() works correctly.';
  WriteLn(Before(' Test', str));
end.