ObjectPascal AnsiMatchStr Function Returns true if a string exactly matches one of a list of strings StrUtils unit

function AnsiMatchStr ( const Source : string; const StringList : array of string ) : Boolean;

Description The AnsiMatchStr function checks to see if any of the strings in StringList exactly match the Source string.   If any match, true is found, otherwise false is returned.   The string list can be specified as a square bracket delimited list, as in the example, or as an array of strings.   It is a Case sensitive command. Related commands AnsiIndexStr Compares a string with a list of strings - returns match index AnsiPos Find the position of one string in another StrScan Searches for a specific character in a constant string		Example code : A simple example var   source : AnsiString; begin   source := 'Henry';   // The string to match   // Note that AnsiMatchStr is case sensitive   // We use a hard coded constant string array   if AnsiMatchStr(source, ['BRIAN', 'JIM', 'HENRY'])   then WriteLn('First match was successful')   else WriteLn('First match was not successful');   // Note that arrays start at 0   if AnsiMatchStr(source, ['Brian', 'Jim', 'Henry'])   then WriteLn('Second match was successful')   else WriteLn('Second match was not successful'); end; Show full unit code    First match was not successful    Second match was successful