pos von hinten

[Mondengel]

Ist mir klar das das wahrscheinlich nicht mehr gebraucht wird ,
schreib aber für alle die das gleiche Problem haben ^^.

Hab einen kleinen aber schnellen Quellcode

Delphi-Quellcode:

uses StrUtils

function PosR(Substr, s : String) : Integer;
var
  rStr : string;
begin
  rStr := reverseString(s);
  result := Pos( reverseString(SubStr), reverseString(s));

  if( 0 <> result) then
  begin
    result := length(S)-result-Length(SubStr)+2;
  end;
end;

kurz und funktioniert
Bye