StrRScan auch mit String, nicht nur mit Char

[marabu]

Oder so:

Delphi-Quellcode:

function RPos(const subStr, s: string): integer;
var
  index: integer;
begin
  Result := Pos(subStr, s);
  while Result <> 0 do begin
    // index := StrUtils.PosEx(subStr, s, Result + Length(subStr)); // fehlerhaft
    index := StrUtils.PosEx(subStr, s, Succ(Result));
    if index = 0
      then Break
      else Result := index;
  end;
end;

Grüße vom marabu

Fehler im Code berichtigt