BeforeEx

[Janilabo]

"Upgrade" function for Before - with this function you can use offset. Example included.

 

BeforeEx

[scar]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.[/scar]