mehrere Tokens aus string löschen

[marabu]

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