Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#1

Pos Suche - mehrere Strings

  Alt 25. Apr 2006, 20:45
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;
Thomas
  Mit Zitat antworten Zitat