[fpc-pascal] any free pascal standard function to compare a string against an array of string?

[Michael Van Canneyt]

On Wed, 10 Oct 2018, Dennis wrote:

> is there a function like
>   if    IsOneOf('subtext', ['abc','cde','fecg','hig'])   then begin
> ...
> end;
>
> is there such a function IsOneOf(TheSubString : String; const TheStrings 
> : array of String) : Boolean
> ?
> if yes, what is its name and unit?

IndexStr in strutils:

https://www.freepascal.org/docs-html/current/rtl/strutils/indexstr.html

Michael.