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!