delphi pos 判断字符串中是否包含指定的字符串

function EvalPhraseInText(const aText: string): boolean;

begin

  Result := 

    ((Pos('text_phrase', aText)>0) OR (Pos('testing', aText) > 0 ))// replace 

    AND Pos('text', aString) > 0

    OR (Pos('anything else', aString)> 0;

end;