OOOOOOOOOps
danke für den Hinweis DeddyH ich war wohl etwas zu schnell
Nartürlich brauch man
rStr nicht
Delphi-Quellcode:
uses StrUtils
function PosR(Substr, s : String) : Integer;
begin
result := Pos(reverseString(SubStr), reverseString(s));
if( 0 <> result) then
result := length(S) - result - Length(SubStr) + 2;
end;
Ist besser nicht
@NameLozer
Das hab ich nicht gewusst sorry
sollt nur ein weiterer Vorschlag sein