Pos Suche - mehrere Strings

[toms]

Hallo,

Hat jemand schon mal eine Funktion geschrieben, welche in einem Durchgang
mehere Substrings in einem String sucht?

Falls ein Substring im Suchstring vorkommt, soll die Funktion True zurückgeben.

Anstatt dies schreiben zu müssen,
if (pos(a,y) <> 0) and (pos(b,y) <> 0) and (pos(c,y) <> 0) .... then Bräuchte ich eine Funktion wie

Delphi-Quellcode:

function StringStringMultiple(const Source: AnsiString; 
  const SearchPatterns: array of AnsiString; 
  {CaseSensitive: Boolean = True}): Boolean;