StrRScan auch mit String, nicht nur mit Char

[Grishnak]

Delphi-Quellcode:

function StrRScanS(const S: string; const sub: string): integer;
var
  p, c: integer;
begin
  Result:=-1;

  p:=Length(s)-Length(sub)+1;
  if p > 0
    then
      repeat
        c:=1;
        while (sub[c] = s[p+c-1]) and (c <= Length(sub)) do Inc(c);
        if c = Length(sub)+1 then Result:=p;

        Dec(p);
      until (p = 0) or (Result > -1);
end;