Alternative zur AnsiPos fkt gesucht

[delphine2000]

Hi!

Ich suche mir eine function die eine String in eine andere String sucht.
Als Beispiel
substring := '123456'

also die function wird true oder 1 zurückliefern wenn die andere String mindestens eine char von meiner substring enthält. Das heißt meine str muß entweder 1 oder 2 oder 3 .. enthalten.

Ich habe versucht mit Ansipos (substring, str)<> 0 aber das problome das Ansipos übeprüft nur eine eizige char oder die ganze substring (nicht einzeln)

function suchstr (substring: String, str: String):Integer;

Danke!

[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

[delphine2000]

Danke Fussball-Robby für die schnelle Antwort.

[Die Muhkuh]

Hi,

der Vollständigkeit halber erwähne ich mal noch die Funktionen AnsiIndexStr,AnsiIndexText und AnsiMatchText