The function MatchText determines if any of the strings that can be found in the array AValues match the string that has been specified by AText, using a case insensitive comparison.

It returns the boolean value of True if at least one of the strings in the array match, or False if none of the strings match.

For a case sensitive comparison, use the MatchStr routine.

Declaration: Function MatchText(const AText : string; const AValues : array of string) : Boolean;

An example follows.

procedure ScriptEvent (var Value : variant);
var
Str1, Str2 : string;
ConfYN : boolean;
iNum : integer;
begin
Str1 := 'yellow';
Str2 := 'BLue';
iNum := 1;
//Is 'yellow' in there?
ConfYN := MatchText(Str1, ['black', 'blue', 'white', 'brown','pink']); //Result is FALSE
If ConfYN = true then
LogInfo('Yes. The colour '+Str1+' is in the array.')
else
LogInfo('No. The colour '+Str1+' is NOT in the array.');
LogInfo('');
ConfYN := MatchText(Str1, ['black', 'blue', 'white', 'brown','pink','YELLOW']); //Result is TRUE
If ConfYN = true then
LogInfo('Yes. The colour '+Str1+' is in the array.')
else
LogInfo('No. The colour '+Str1+' is NOT in the array.');
LogInfo('');
 
//Is 'BLue' in there?
ConfYN := MatchText(Str2, ['black', 'blue', 'white', 'brown','pink']); //Result is TRUE
If ConfYN = true then
LogInfo('Yes. The colour '+Str2+' is in the array.')
else
LogInfo('No. The colour '+Str2+' is NOT in the array.');
LogInfo('');
ConfYN := MatchText(Str2, ['black', 'blu', 'white', 'brown','pink','YELLOW']); //Result is FALSE
If ConfYN = true then
LogInfo('Yes. The colour '+Str2+' is in the array.')
else
LogInfo('No. The colour '+Str2+' is NOT in the array.');
LogInfo('');
end;