Mirror

How to implement the RPos (Views: 100)


Problem/Question/Abstract:

Sometime Pos is not enough, because you need to find the position of the first character of a sub string in a string from the end of that string. There's the solution.

Answer:

function RPos(Substr: string; S: string): Integer;
var
  i: Integer;
begin
  Result := 0;
  if ((Length(S) > 0) and (Length(Substr) > 0)) then
    if (Length(S) >= Length(Substr)) then
      for i:= (Length(S) - Length(Substr)) downto 1 do
        if (Copy(S, i, Length(Substr)) = Substr) then
        begin
          Result := i;
          Exit;
        end;
end;

<< Back to main page