ContainsStr

ContainsStr performs a case sensitive search for the specified substring ASubText, in the specified string AText.

The function returns a boolean True if one or more instances of ASubText exist in AText.

For a search that is not case sensitive, use the ContainsText routine.

Declaration: Function ContainsStr(const AText, ASubText : string) : Boolean;

Examples as below.

procedure ScriptEvent (var Value : variant);
var
  TheText, FullText : string;
  BoYN : boolean;
begin
  FullText := 'The theories behind why we evolved three-colour vision is wide and varied.';

  TheText := 'two';
  BoYN := ContainsStr(FullText, TheText);     //Will not find it
 If BoYN = True then
    LogInfo('The subtext is contained withn.')
 else
    LogInfo('The subtext was not found contained within.   Try agin.');

  TheText := 'THREE';
  BoYN := ContainsStr(FullText, TheText);    //Will not find it
 If BoYN = True then
    LogInfo('The subtext is contained withn.')
 else
    LogInfo('The subtext was not found contained within.   Try agin.');

  TheText := 'three';
  BoYN := ContainsStr(FullText, TheText);    //Will find it
 If BoYN = True then
    LogInfo('The subtext is contained withn.')
 else
    LogInfo('The subtext was not found contained within.   Try agin.');

end;