string zeichenweise durchlaufen

[turboPASCAL]

Och, warum soll es die nicht geben ?

Delphi-Quellcode:

function PosEx(const Substr: string; const S: string; Offset: Integer): Integer;
begin
  if Offset <= 0 then Result := 0 else
    Result := Pos(Substr, Copy(S, Offset, Length(S)));

  if Result <> 0 then
    Result := Result + Offset - 1;
end;

Oder ?

// Edit: War ich zu langsam ?