Zitat von
sniper_w:
Und wo soll PosEx sein ?
Tut mir leid, ich hatte D6 in deinem Profil übersehen. Wenn du es je brauchen solltest:
Delphi-Quellcode:
function PosEx(const SubStr, S: string; Offset: integer): integer;
begin
Result := Pos(SubStr, Copy(S, OffSet, Succ(Length(S) - OffSet)));
if Result > 0 then Result := Result + Pred(Offset);
end;
Zu finden war es auch mit PosEx als Suchwort hier in der
DP. Aber du hast ja jetzt eine Lösung - und sogar ohne die Rekursionsfalle. Schönen Sonntag noch.
marabu