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
