Pos-Funktion rückwärts

[inherited]

Delphi-Quellcode:

uses Strutils...

function PosBackward(substr, str: String): Integer;
begin
  result:=pos(substr, AnsiReverseString(str));
end;

Sollte dir "4" liefern, bei deinem Beispiel