Before

[Janilabo]

Returns the text before S in STR. Example included.

 

Before

[scar]function Before(s, str: string): string;

var

p: Integer;

begin

if (Length(s) >= Length(str)) then

Exit;

p := Pos(s, str);

if (p > 1) then

Result := Copy(str, 1, (p - 1));

end;

 

var

str: string;

 

begin

ClearDebug;

str := 'Before() WORKS! Test to see if Before() works correctly.';

WriteLn(Before(' Test', str));

end.[/scar]