Janilabo | BeforeEx() [Simba]

function BeforeEx(s, str: string; offset: Integer): string;
var
  p, strL: Integer;
begin
  strL := Length(str);
  if (Length(s) >= strL) or (offset >= strL) then
    Exit;
  p := PosEx(s, str, offset);
  if (p > 1) then
    Result := Copy(str, 1, (p - 1));
end;

var
  o: Integer;
  str: string;

begin
  ClearDebug;
  str := 'BeforeEx() WORKS! This is BeforeEx() test!';
  o := Pos('This', str);
  WriteLn(BeforeEx(' ', str, (o - 1)));
end.