Pos Suche - mehrere Strings

[himitsu]

ähhhm noch nicht, aber so schwer isses ja nicht

Delphi-Quellcode:

function StringStringMultiple(Source: AnsiString; 
  Const SearchPatterns: array of AnsiString; 
  CaseSensitive: Boolean = True): Boolean;
  var i: Integer;

  begin
    Result := False;
    if CaseSensitive then Source := AnsiLowerCase(Source);
    for i := 0 to High(SearchPatterns) do
      if (CaseSensitive and (Pos(AnsiLowerCase(SearchPatterns[i]), Source) <> 0))
        or (not CaseSensitive and (Pos(SearchPatterns[i], Source) <> 0)) then begin
        Result := True;
        Exit;
      end;
  end;

[edit=Luckie]Tags gefixt. Mfg, Luckie[/edit]
thanks ._.