Alternative zur AnsiPos fkt gesucht

[Fussball-Robby]

Machs doch einfach über eine Schleife und gehe die einzelnen Zeichen des Suchstrings durch.

Edit: Hab hier in nem alten Projekt eine Funktion gefunden:

Delphi-Quellcode:

function MyPos(SubStr, Str: String): Integer;
var
  i: Integer;
begin
  for i := 1 to Length(SubStr) do
  begin
    Result := Pos(SubStr[i], Str);
    if Result > 0 then
      Exit;
  end;
end;

Edit2: Herzlich Willkommen in der DP